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Alioctivo programo que nos traslada al ma¬ 
nejo de la máquina-flippeT del mejor cgsíno 
de Las Vegas Posibilidad de creación del 
tablero, puntuaciones, etc P.V.P.: CASSET¬ 
TE 2.200 pts. DISCO 2.900 pts. 


Te encuentras atrapado en las profundida¬ 
des de una caverna, llena de obstáculos, 
adversidades, etc. ¿Serás capaz de salir 
con vida? P.V.P.: CASSETTE 1.900 pts. DIS¬ 
CO 2.600 pts 


Debes pilotar con acierto la nave que a lo 
largo de su viaje galáctico sufrirá encuen¬ 
tros con meteoritos, residuos planetarios, 
etc. Gran movilidad y excelentes efectos. 

P.V.P.: CASSETTE 1.900 pts. DISCO 2.600 pts. 


El comandante de nave AMSTRAD-1 se en¬ 
cuentra atrapado en las profundidades de 
una central nuclear y debe salir con vida. Ex¬ 
celentes gráficos y sonido. P.V.P.: CASSET¬ 
TE 2.200 pts. DISCO 2.900 pts. 


PRUtEj UTaifas 1S«S 


Programa de utilidad que permite realizar 
copias de seguridad (back-ups) a distintos 
velocidades (baudios) P.V.P.: CASSETTE 
1 800 pts DISCO 2.500 pts. 


Programa que permite de una manera sen¬ 
cilla la creación de pontpllas.con gráticos, 
dotarles de movimiento, acompañados de 
música P.V.P.: DISCO 2.900 pts. 


El más completo programa de música crea¬ 
do para el AMSTRAD Permite crear sonidos, 
melodías y convedir tu ordenador en la me¬ 
jor 'caja de músico" P.V.P.: CASSETTE 


Te encuentras a los mandos de la nave ’Air- 
craft". En una pertecta maniobra debes des¬ 
pegar del portaviones. (Excelente versión si¬ 
mulador vuelo-combate). P.V.P.: CASSETTE 
2.200 pts. DISCO 2.900 pts. 


2.200 pts. DISCO 2.900 pts. 


Pasar los mejores programas de cinta a 
disco ya no es problema. Con Trdnsmat es¬ 
te proceso será fácil y sencillo P.V.P.: Dis¬ 


ta mejor utilidad para el mejor conocimien¬ 
to del disco 

(Copias de disco, Disk map, Disk track, sec¬ 
tor, etc) P.V.P: DISCO 2.600 pts. 


Ampliación del lenguaje Basic. Conjunto de 
30 nuevas instrucciones (till, circle, protec) 
para ayudar en la programación. P.V.P.: 
CASSETTE 2.200 pts DISCO 2.900 pts. 


Editor-desensamblador del Z-80 para el 
programador más avanzado P.V.P.: CAS¬ 
SETTE 1.900 pts. DISCO 2.600 pts. 


MIÑI OFFICE P.V.P. CASS. 3.200 pts. 

P.V.P. DIS. 3.900 pts. 

WORLD CUP FOOTBALL P.V.P. CASS. 1.800 pts. 

BATLE FOR MIDWAY P.V.P. CASS. 1.800 pts. 

FIGHTER PILOT P.V.P. CASS. 2.200 pts. 

SURVIVOR P.V.P. CASS. 1.800 pts. 

MOON BUGGY P.V.P. CASS. 1.800 pts. 

TECHNICIAN TED P.V.P. CASS. 1.800 pts. 

FRUITY FRANK P.V.P. CASS. 1.800 pts. 

DATABASE P.V.P. CASS. 2.100 pts. 

LOGO TURTLE GRAPHICS P.V.P. CASS. 2.400 pts. 

TASCOPY Y TASPRINT P.V.P. CASS. 2.600 pts. 

FONT EDIJOR P.V.P. CASS. 1.900 pts. 


sErn» h 


Sofisticado programa de dibujo que^permite tratar la pantalla del AMS¬ 
TRAD como un sencillo toblero de dibujo, sus resultados sor expetacula- 

res P.V.P.: CASSETTE 4.500 pts. DISCO 5.200 pts. 


mm 

¡tr 

dSwíEite 

|£p 


II ® 


U? a! 


M 9 ** 


JUEGO 

c 

D 

Precio 

TOTAL 














































































































Director Editorial 

José I. Gómez-Centurión 

Director Ejecutivo 

José M.° Díaz 

Redactor Jefe 

Juan José Martínez 

Diseño gráfico 

Fernando Chaumel 
Colaboradores 

Eduardo Ruiz 
Javier Barceló 
David Sopuerta 
Robert Chatwin 
Francisco Pórtalo 
Pedro Sudón 
Miguel Sepúlveda 
Francisco Martín 
Jesús Alonso 
Pedro S. Pérez 
Amalio Gómez 
Secretaria Redacción 
Carmen Santamaría 
Fotografía 
Carlos Candel 
Portada 
M. Barco 
Ilustradores 

J. Igual, J. Pons, F. L. Frontón, 
J. Septien, Pejo, J. J. Mora 

Edita 

HOBBY PRESS, S.A. 

Presidente 

María Andrino 

Consejero Delegado 

José I. Gómez-Centurión 

Jefe de Producción 

Carlos Peropadre 

Marketing 

Marta García 

Jefe de Publicidad 

Concha Gutiérrez 

Publicidad Barcelona 

José Galán Cortés 
Tel: (93) 303 10 22/313 71 62 

Secretaria de Dirección 

Marisa Cogorro 

Suscripciones 

M.° Rosa González 
M. a del Mar Calzada 

Redacción, Administración 
y Publicidad 

Ctra. de Irún km 12,400 
(Fuencarral) 28049 Madrid 
Teléfonos: Suscrip.: 734 65 00 
Redacción: 734 70 12 

Dto. Circulación 

Paulino Blanco 

Distribución 

Coedis, S. A. Valencia, 245 
Barcelona 

Imprime 

Gráficas Reunidas 
Avda. Aragón, 56 (MADRID) 

Fotocomposición 

Novocomp, S.A. 

Nicolás Morales, 38-40 

Fotomecánica 

GROF 

Ezequiel Solana, 16 

Depósito Legal: 

M-5836-1986 

Derechos exclusivos 
de la revista 

COMPUTING with 
the AMSTPAD 


Representante para Argentina, Chile, 
Uruguay y Paraguay, Cia. 
Americana de Ediciones, S.R.L. Sud 
América 1.532. Tel.: 21 24 64. 1209 
BUENOS AIRES (Argentino). 

M. H. AMSTRAD no se hace 
necesariamente solidaria de las 
opiniones vertidas por sus 
colaboradores en los artículos 
firmados. Reservados todos los 
derechos. 

Se solicitará control OJD 



Año I • Número 2 • Junio 1986 
Precio 475 pías. Canarias, Ceuta y Melilla 450 pías. 


Impresoras 

Si el mercado de ordenadores es una selva os¬ 
cura para el más enterado, el de las impresoras 
es ya el caos más absoluto. Ponemos orden en este 
maremagnum y te damos la posibilidad de que 
elijas, con conocimiento de causa, la impresora 
que necesitas. 


Para... PCVJ 

Una de las posibilidades más potentes del Ma- 
llard Basic, sin duda, es la indexación de ficheros. 
Jetsam, constituye hoy por hoy, una de las for¬ 
mas más lógicas, eficaces y rápidas de indexar un 
fichero, apréndelas con nosotros y utiliza toda la 
versatilidad de tu PCW. 





Hay gente, mucha, que no acepta la derrota 
de su inteligencia por un ordenador. Si quieres pa¬ 
sar a ser uno de ellos, juega e intenta vencer a 
nuestro geniecillo. 



Convertir un ordenador en algo inteligente, era 
hasta ahora muy difícil; si además este ordena¬ 
dor era uno modesto, la empresa era casi impo¬ 
sible. AMSTRAD Especial, continuando con el 
curso del semanario, os ofrece gratis el lenguaje 
A por excelencia: el LISP. 

Utilizándolo, cualquiera que tenga un Ams- 
trad y curiosidad por el asunto va a poder ha¬ 
cer «razonar» a su ordenador. 


Soft 

integrado 

Técnicas de programación verdaderamente de¬ 
puradas y estudiadas han conseguido el milagro, 
tres programas en uno. Fidicom, un paquete de 
gestión con verdadera vocación profesional. 





Paginación 
de memoria 


Elige el número de programas Basic que quie¬ 
res y disponte a ejecutarlos, casi, casi, al mismo 
tiempo. Nuevos comandos RSX que consiguen 
convertir a tu Amstrad en dos, o en tres, o en... 



En broma y en serio, en castellano y en inglés, 
retamos a todo el poderío de tu ingenio para re¬ 
solver nuestros xigramas. ¿Te atreves...? 
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Compilador Cbasic 

Daniel Palomo y Martín Carrelra 

Al poco de salir al mercado el sistema operativo 
CP/M, Gordon Eubanks Jr. reveló parte de su tesis 
doctoral en la que se describía un nuevo lenguaje: 
El EBasic. 

EBasic fue el primer compilador para Basic. En realidad, el 
que hoy se nos ofrece, posee una estructura muy parecida al 
que se puede considerar fue su precursor. 


Al igual que Basic, disponemos de una se¬ 
rie de funciones definidas (sin, sqr, etc.), y po¬ 
demos crear nuevas funciones. La diferencia 
estriba en que nuestras funciones pueden con¬ 
tener fragmentos de programa. Algo pareci¬ 
do ocurre en la declaración de procedimien¬ 
tos de otros lenguajes. Esto permite tratar al¬ 
goritmos complejos basados en técnicas de re- 
cursividad e iteración. 

Podemos usar cualquier palabra reservada 
de CBasic en nuestras funciones, pero no las 
podemos tratar como si fuesen vulgares subru¬ 
tinas, muy importante: a las funciones no las 
podemos invocar con GOTO o GOSUB, de¬ 
biéndose utilizar el primero únicamente en ca¬ 
sos desesperados. La palabra reservada que 
se encarga de invocar a una función .s CALL, 
pudiéndose invocar en expresiones con sólo 
su nombre. Para utilizar GOSUB debemos po¬ 
ner una etiqueta y el correspondiente RETURN 
en el cuerpo de la función, pero veremos que 
no nos será necesario utilizar subrutinas. 

Un nombre de función es un identificador 
válido de CBasic. Solamente los seis prime¬ 
ros caracteres son significativos, como ocurre 
con el resto de los nombres de variables y eti¬ 
quetas. 

El tipo de función puede ser determinado 
con los identificadores adecuados, éstos son: 
$ para cadenas de caracteres 
% para enteros 

el carácter final de una función o variable real 
no puede concluir con ninguno de los anterio¬ 
res caracteres. 

Podemos definir funciones como en Basic y 
tratarlas de igual manera. 

Las funciones se pueden declarar como pú- 
¡ blicas o externas; las públicas son ejecutables 
por otros módulos de programa, únicamente 
' nuestra declaración deberá tener como últi¬ 
ma palabra PUBLIC, para referenciar a estas 
funciones en un módulo de programa distin¬ 
to, debemos utilizar otra función como puen¬ 
te, ésta estará declarada como EXTERNAL, y 
contendrá únicamente datos sobre la otra fun¬ 
ción, no puede contener comandos ejecuta¬ 
bles. 


_ _ . poco tiempo, Mr. 

Gordon Eubanks fundó su empresa y prosiguió 
su labor, ampliando el lenguaje por él idea¬ 
do a lo que sería llamado CBasic. Había na¬ 
cido un Basic insospechado... 

Por aquel entonces, otra compañía ameri¬ 
cana, desarrolló otro dialecto Basic: El MBa- 
sic o Basic Microsoft. Hasta 1980 fue un len¬ 
guaje interpretado, fecha en la que apareció 
el primer compilador. 

Desde que fue ideado en los años 60, el Ba¬ 
sic fue enriqueciéndose, adquiriendo nuevos 
conceptos provenientes de otros lenguajes de 
alto nivel, y subsanando deficiencias. CBasic 
no se quedó atrás y el resultado es un lenguaje 
muy versátil y potente. El que sea compilado 
dice mucho en favor de su rapidez y puede 
ser utilizado por aquellos a los que el Basic se 
les ha quedado pequeño. 

Más allá de la incorporación de nuevos co¬ 
mandos y funciones, que serán comentados 
más tarde, se entra en una nueva filosofía de 
programación. CBasic es para programar en 
módulos con estructuras, tal como hacemos en 
ciertos lenguajes de alto nivel como C, PAS¬ 
CAL, etc. 

Esto lo conseguimos en CBasic con las fun¬ 
ciones. 


Funciones... 
y eso , ¿qué es? 

Ante todo una función en CBasic, no es lo 
que estamos acostumbrados a ver, es algo mu¬ 
cho más potente; las funciones en CBasic, son 
como las de C, o procedures de Pascal. 


Palabras reservadas 

La lista completa de palabras reservadas de 
CBasic la tenemos en la figura 1. Haremos una 
descripción de aquéllas que supongan una in¬ 
novación o, aun utilizando el mismo nombre, 
signifiquen acciones distintas que en el Basic 
Locomotive. Los gráficos en CBasic son muy 
potentes, por lo que serán tratados posterior¬ 
mente. 

Dos palabras reservadas por el sistema son 
ATTACH y DETACH y se refieren al control de 
la impresora por parte de sistemas multiusua- 
rio. ERRX es una función destinada al trata¬ 
miento de errores en MP/M II (multiusuario). 
Veamos esas palabras nuevas: 

DEF: Se utiliza para definir funciones en los 
sentidos descritos anteriormente. FEND iden¬ 
tificará el final de dicha declaración. CALL lla¬ 
mará a la función siempre que no se la invo¬ 
que en expresiones, en cuyo caso bastará con 
mencionar el identificador de la misma. 

CHAIN: Sustituye un programa por otro y 
comienza su ejecución. Sirve para crear pro¬ 
gramas transitorios. Todas las variables que 
se quieren traspasar al programa llamado, de¬ 
berán ser declaradas en una cláusula CON- 
MON. 

COMAND$: Se utiliza para transmitir pa¬ 
rámetros a un programa. 

CONCHAR%: Esta función espera un carác¬ 
ter del teclado y retorna su valor ASCII deci¬ 
mal, imprime el carácter. 

INKEY: Espera un carácter del teclado y re¬ 
torna su valor ASCII decimal, no imprime el 
carácter. 

CONSOLE/LPRINTER: Dirigen la salida por 
pantalla o impresora respectivamente. 

CONSTAT%: Retorna un valor booleano de¬ 
pendiendo del estado del teclado. 

CREATE: Crea un fichero en disco, sin infor¬ 
mación en él. Permite determinar la longitud 
de registros, el número de buffers, el modo de 
fichero, siendo éstos: 

LOCKED: Ficheros a los que sólo pue¬ 
de acceder el programa que los crea. 
UN LOCKED: Ficheros utilizables por 
cualquier programa. 

READONLY: Ficheros de sólo lectura. 

DELETE: Borra un fichero del disco dándo¬ 
le el número del mismo. 

FLOAT: Convierte un número en un real de 
punto flotante. 

GET: Lee un byte de datos de un fichero es¬ 
pecificado. 
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IF END#: Transfiere el control del progra¬ 
ma a una etiqueta determinada, cuando ocu¬ 
rre algún suceso de excepción en el acceso a 
un disco. 

INITIALIZE: Permite cambiar los diskettes en 
tiempo durante la ejecución del programa, sin 
tener que inicializar el sistema. 

LOCK: Previene al programa para modifi¬ 
car los datos en un registro. 

MATCH: Busca subcadenas en cadenas re¬ 
tornando su posición. 

OPEN: Abre un fichero ya creado. Permite 
determinar la longitud de los registros, el nú¬ 
mero de buffers, y el modo. 

POS: Retorna la próxima columna en la que 
se va a imprimir. 

PUT: Escribe un byte de datos en un fichero 
especificado. 

RENAME: Cambia en el directorio del dis¬ 
co un nombre de fichero. 

SADD: Retorna la dirección de comienzo de 
la variable de cadena especificada. 

SHIFT: Retorna un entero que es aritmética¬ 
mente desplazado un número de posiciones a 
la derecha. 

SIZE: Retorna el número de bloques de un 
kilobyte, ocupados por el fichero especifica¬ 
do. 

UCASE$: Convierte minúsculas a mayúscu¬ 
las. 

UN LOCK: Permite acceder y modificar los 
registros de un fichero. 

VARPTR: Retorna la dirección de una varia¬ 
ble. 

Aquí finalizan las palabras reservadas, que 
nos pueden ser desconocidas. El resto no se 
comentan por no diferenciarse en nada de sus 
homologas en LOCOMOTIVE Basic. 

Conviene hacer algunas aclaraciones, sobre 
variables. Estas pueden ser declaradas en un 
tipo determinado, mediante los comandos: 

INTEGER: Variables enteras. 

REAL: Variables reales. 

STRING: Variables de cadena. 

COMMON: Variables de cualquier tipo que 
vayan a ser usadas por cualquier programa, 
llamado por CHAIN. 

La declaración de variables nos evita tener 
que poner los identificadores de tipo. 

En la declaración de variables debemos de¬ 
jar un espacio en blanco entre el separador 
y la variable que lo precede. 

Las etiquetas son tratadas como cadenas de 
caracteres. 

Todos los errores en tiempo de ejecución, 
no tratados por el programa, son fatales y ha¬ 
cen que ésta concluya. 

Las sentencias: DIM, DATA, IF, END y las 
declaraciones de variables, no podrán com¬ 
partir la línea con ninguna otra palabra reser¬ 
vada. 

El valor booleano verdadero es igual a — 1. 

FOR convierte todas las expresiones numé¬ 
ricas, que se hallan en el bude, al tipo de va¬ 
riable que utiliza (real o entera). 

Los símbolos para los formatos de PRINT 


JERARQUIA DE OPERADORES 

1 

0 

Paréntesis 

2 


Potenciación 

3 

#/ 

Multiplicación 
y división 

4 

+— 

Suma y resta 

5 

A 

+ 

A 

Jl 

Operadores 


+ =,<+,= 

de relación 

6 


NOT 

7 


AND 

8 


OR 

9 


XOR 


USING son los mismos que los existentes en 

LOCOMOTIVE Basic 

Respecto a las funciones conviene resaltar 
ciertos aspectos: No pueden estar nidadas. 
Cualquier función puede llamar a otra. El co¬ 
mando COMMON no puede aparecer en una 
definición. 

No puede haber GOTO's que referencien 
líneas fuera de la función. 

Si incluimos sentencias DIM en una función, 
cada vez que ésta se ejecute, colocará una 
nueva matriz, que sustituirá a la anterior per¬ 
diendo los datos almacenados en ella. 


Partes y 
funcionamiento 

El compilador CB80 consta de tres partes 
principales: 

1. El compilador en sí, 

2. El linker y 

3. La librería. 

Vamos a hacer aquí una descripción de las 
partes, así como alguna particularidad del fun¬ 
cionamiento. 


El compilador 

Es el encargado de traducir el programa 
«fuente» escrito en CBasic a un programa en 
máquina relocalizable. Algunas instrucciones 
son llevadas a un código intermedio para ser 
traducidas totalmente durante el proceso de 
linkado. 

Para que esto sea posible, el compilador 
crea tres ficheros intermedios llamados 
PA.TMP, CODE.TMP y DATA.TMP. Los tres 
son borrados automáticamente por el compi¬ 
lador cuando termina su cometido. 

Por último, se grabará en el disco un pseudo- 
programa en código máquina con la extensión 
.REL. Este archivo es relocalizable y es el que 
precisamos para su posterior linkado. 

En esta fase se pueden presentar tres tipos 
distintos de errores, que deberán ser corregi¬ 
dos antes de proseguir: 

1. Error en los espacios de memoria o de 
ficheros: Ocurre cuando sobrepasamos la me¬ 


moria disponible, el disco está lleno, coman¬ 
dos de línea incorrectos, error de lectura del 
disco, intentamos leer un fichero no abierto 
previamente,... etc. 

2. Errores de Compilación: Corresponden 
a mal uso de un comando, caracteres no váli¬ 
dos, declaraciones incorrectas u omisión de de¬ 
limitadores. Por cada error detectado se es¬ 
cribe una () indicando el lugar del texto fuen¬ 
te, y un código variable entre 1 y 117 que in¬ 
forma de la naturaleza del mismo. Cabe de¬ 
cir, que un solo error puede generar varios có¬ 
digos, incluso en otras zonas del programa. 

3. Errores fatales: Teóricamente no deben 
producirse y a nosotros no nos ha sucedido. 
Digital Research está interesada en el progra¬ 
ma que motiva un error de este tipo, así co¬ 
mo del código de error que genera. 


Opciones 

de comando directo 

Deben ser insertadas en una línea del pro¬ 
grama fuente sin que haya en ella comandos 
o funciones CBasic. No pueden ser etique¬ 
tadas y no dan lugar a ningún código ejecu¬ 
table. Es una manera de seleccionar, mediante 
programa, opciones del compilador. Son las 
siguientes: 

%LI$T, %NOLIST: Controlan el que se pro¬ 
duzca o no el listado del código fuente durante 
la fase de compilación. 

%EJECT: Hace que el listado por impreso¬ 
ra continúe al principio de una nueva página. 

%PAGE: En la impresora, selecciona la lon¬ 
gitud de página. 

%INCLUDE: Incluye el código fuente alma¬ 
cenado en otro archivo durante la compila- 
rión de un programa. 

%DEBUG: Controla mediante tres indicado¬ 
res la aparición o no del código objeto mez¬ 
clado con el fuente (I), genera o no el código 
del número de línea (N) y coloca o no el nú¬ 
mero de línea en el fichero del código fuente 

(V). 

Se dispone, además, de otros 12 conmuta¬ 
dores (banderas), que permiten seleccionar 
otras tantas modificaciones en el control de pe¬ 
riféricos y sistema operativo. 

Los programas que utilicen gráficos debe¬ 
rán incluir los siguientes ficheros: 

GRAFCOM.BAS 

CIRCOM.BAS 

El último fichero no es necesario si no se in¬ 
cluyen funciones de círculo. 


El linker 


La misión del compilador era traducir un 
programa fuente en un fichero en código má¬ 
quina relocalizable. Algunas instrucciones que¬ 
daban en un código intermedio que será to- 
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talmente traducido mediante llamadas a la li¬ 
brería. 

La función del linker o «enlazador» es 
precisamente la de encadenar entre sí los dis¬ 
tintos módulos de programa. Asimismo se en¬ 
cargará de llamar a la librería para añadir los 
módulos designados por el «código inter¬ 
medio» que no traducía completamente el 
compilador. Por último, creará jas rutinas ne¬ 
cesarias para el control y ejecución del pro¬ 
grama. Al final dispondremos de un fichero 
ejecutable (bajo cp/m) con la extensión .COM. 

Al igual que el compilador, informa en he- 
xadecimal del tamaño, comienzo y final del 
programa objeto, el área de datos y del área 
de variables comunes. 


Opciones del linker 

Mediante cinco conmutadores podemos 
efectuar alteraciones en los ficheros grabados 
o dirigir la salida por impresora. 

La más interesante de todas es la [S] que, 
una vez activada permite utilizar la técnica de 
recubrimiento (overlay). Consiste en una zo¬ 
na fija de memoria donde están almacenadas 
distintas rutinas en momentos distintos. El apro¬ 
vechar esta técnica supone aceptar restriccio¬ 
nes tales como que el tamaño de todas las ru¬ 
tinas sea el mismo, aue las distintas rutinas no 
llamen a funciones de librería distintas,... etc. 
Su uso requiere cuidado y puede ser útil cuan¬ 
do la longitud del programa exija «rentabili- 
zar» memoria. 


La librería 

Consta de una serie de rutinas contenidas 
en un fichero indexado. El linker mezclaba es¬ 
tas rutinas con la secuencia generada por el 
compilador. Cabe destacar la posibilidad de 
crear una librería indexada definida por el 
usuario y concatenar ficheros de este tipo. 

Gráficos 

Los gráficos en CBasic son una herramienta 
muy potente, nos permiten hacer cualquier co¬ 
sa que se nos ocurra. 

Las funciones y comandos de gráficos se di¬ 
viden en cinco grupos dependiendo de la fun¬ 
ción que realicen. Los comandos y funciones 
de gráficos se consideran palabras reservadas 
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de CBasic, solamente si nuestros programas 
usan gráficos. 

La lista de palabras clave es la siguiente: 


GRUPO 

PALABRAS CLAVE 

SALIDA 

GRAPHIC PRINT 

MAT FILL 

MAT MARKER 

MAT PLOT 

PLOT 

FORMATEO 

CHARACTER HEIGHT 
(SET/ASK) 

COLOR (SET/ASK) 

COLOR COUNT 
(SET/ASK) 

JUSTIFY (SET/ASK) 

LINE STYLE (SET/ASK) 
MARKER HEIGHT 
(SET/ASK) 

MARKER TYPE (SET) 

STYLE COUNT (ASK) 

TEXT ANGLE (SET/ASK) 

AREA DE 
PANTALLA 

BOUNDS (SET/ASK) 

DEVICE (ASK) 

VIEWPORT (SET/ASK) 
WINDOW (SET/ASK) 

ENTRADA 

GRAPHIC INPUT 

CONTROL 

BEAM (SET/ASK) 

CLEAR 

CLIP (SET/ASK) 

GRAPHIC CLOSE 

GRAPHIC OPEN 

POSITION (SET/ASK) 


Para trabajar con gráficos en CBasic hay 
que tener muy claros los siguientes conceptos: 

COORDENADAS: El dispositivo de la pan¬ 
talla de gráficos, está definido por los ejes de 
coordenadas X e V. Ambas comienzan en la 
esquina inferior izquierda y originalmente su 
rango va de 0.0 a 1.0. Esta disposición pue¬ 
de parecer extraña, pero podemos variar las 
escalas a nuestro gusto como veremos más 
adelante. 

coordenadas iniciales 

0.0,1.0 í-i.i.i 

0 . 0 , 0.0 1 . 0 , 0.0 

LIMITES (bounds): Son las dimensiones físi¬ 
cas en pixels, pulgadas, centímetros, o cual¬ 
quier otro tipo de medida. Normalmente los 
dos ejes no suelen ser ¡guales. 

Inicialmente la extensión de la pantalla es 
del 100% de la misma pudiendo ser reducido 
a nuestro gusto. 

VIEWPORT: Es el área de pantalla en la cual 
se imprimen los gráficos. Este comando nos 
permite reducciones de dicho área a nuestro 
gusto. 

WINDOW: Esta palabra reservada no tie¬ 
ne nada que ver con la de LOCOMOTIVE Ba¬ 
sic. En CBasic sitúa la escala de los ejes de 
coordenadas con los que se desea trabajar. 


BEAM: Activa o desactiva el modo dibujar. 
Equivale a PEN ON/OFF del plotter. 

SET BEAM: Determina el estado (ON/OFF). 
ASK BEAM: Devuelve en una variable de ca¬ 
dena el estado de BEAM. 

BOUND: Determina las dimensiones físicas 
de la pantalla. 

SET BOUND < alto + < ancho + : Deter¬ 
mina las dimensiones de la pantalla. 

CHARACTER HEIGHT: Define la altura de 
los caracteres relativa a la longitud del eje Y. 

SET CHARACTER HEIGHT: Determina la al¬ 
tura dependiento del número que vaya a con¬ 
tinuación. 

ASK CHARACTER HEIGHT: Retorna en una 
variable el valor vigente en ese momento. 
CLEAR: Equivale a CLS. 

CLIP: Activa o desactiva el control de los 
márgenes, nos permite dibujar figuras que ex¬ 
cedan los límites de la pantalla. 

SET CLIP: ON activa, OFF desactiva. 

ASK CLIP: Retorna en una variable el esta¬ 
do de clip en la forma antes expresada. 

COLOR: Asigna un color para texto o grá¬ 
ficos. 

SET COLOR: Asigna un color determinado 
por un entero. 

ASK COLOR: Retorna en una variable nu¬ 
mérica el color actual. 

DEVICE: Devuelve los límites de la pantalla 
en dos variables. 

ASK DEVICE < var alto + < var ancho + 
GRAPHICINPUT: Permite posicionar el cur¬ 
sor con las teclas correspondientes y cuando 
se pulsa una que no sea de cursor, devuelve 
la posición del cursor en dos variables, en el 
orden X e Y, y el carácter generado por la te¬ 
cla pulsada, es devuelto en una variable de 
cadena. 

GRAPHIC OPEN: Inicializa el sistema de 
gráficos con posibilidad de determinar el dis¬ 
positivo de salida. 

(Consultar la guía de GSX para mayor in¬ 
formación.) 

GRAPHIC PRINT AT (X,Y): Sitúa en las coor¬ 
denadas indicadas una constante o variable 
de cadena. 

LINE STYLE: Selecciona el tipo de línea pa¬ 
ra dibujar. 

SET LINE STYLE: Selecciona el tipo de línea 
dependiendo de los siguientes valores: 

1. continua 

2. rayada 

3. punteada 

4. punto-raya. 

ASK LINE STYLE: Devuelve en una variable 
entera el tipo de línea existente en ese momen¬ 
to. 

MARKER HEIGHT: Determina la altura de 
los marcadores con respecto al eje Y. 

SET MARKER HEIGHT: Determina la altura 
dependiendo de una expresión numérica. 

ASK MARKER HEIGHT: Devuelve en una va¬ 
riable entera el valor actual. 

SET MARKER TIPE: Selecciona el tipo de 
marcador a utilizar dependiendo de la siguien¬ 
te lista: 




























1 . 

2 + 

3 * 

4 O 

5 x 

MAT FILL: Dibuja un polígono relleno de¬ 
pendiendo de los valores actuales de las ma¬ 
trices de coordenadas X e Y. 

MAT MARKER: Marca los puntos señalados 
por los valores actuales de las matrices de 
coordenadas, utilizando el tipo de marcador 
en curso. 

MAT PLOT: Une los puntos referenciados 
por la matriz de coordenadas. 

PLOT: Conecta con líneas una serie de pa¬ 
res de coordenadas dado. 

POSITION: Selecciona la posición del cur¬ 
sor. 

SET POSITION: Selecciona la posición del 
cursor por medio de dos enteros dados. 

ASK POSITION: Devuelve la posición del 
cursor en dos variables. 

ASK STYLE COUNT: Asigna a una variable 
el número del tipo de línea actual. 

TEXT ANGLE: Determina el ángulo, con res¬ 
pecto al eje de las X, en el que se va a inser¬ 
tar texto. 

SET TEXT ANGLE: Selecciona el ángulo, ex¬ 
presado en radianes. 

ASK TEXT ANGLE: Retorna el valor del án¬ 
gulo en una variable real. 

VIEWPORT: Dispone los valores del área de 
pantalla en el cual se van a imprimir gráficos. 

SET VIEWPORT: Selecciona las dimensiones 
de la pantalla, dándole, en este orden, la po¬ 
sición izquierda, derecha, abajo y arriba. 

ASK VIEWPORT: Devuelve en cuatro varia¬ 
bles las dimensiones actuales de la pantalla. 

WINDOW: Determina la escala de los ejes 
Xe Y. 

SET WINDOW: Determina la escala dán¬ 
dole, en este orden, límite izquierdo, límite de¬ 
recho, límite inferior, límite superior. 

ASK WINDOW: Devuelve en variables, en el 
orden indicado, la escala actual. 

Los gráficos en CBasic son rápidos y bastan¬ 
tes buenos, el disco contiene dos programas 
de prueba DEMOGRAF.BAS y TSTCIR,BAS, és¬ 
tos los podemos compilar normalmente. 

Pero antes de ejecutar el programa .COM, 
deberemos ejecutar GENGRAF, suministrado 
con CP/M plus, para mezclar con el progra¬ 
ma un cargador en tiempo de ejecución de 
GSX,SYS. El sistema es el siguiente: GENGRAF 
PROG. 

GENGRAF necesita un fichero .COM para 
operar. 


Conclusiones 

Un lenguaje como el aquí descrito, con ca¬ 
pacidad de programación modular y estruc¬ 
turada es el ideal para pasar de los conoci¬ 
mientos actuales de Basic a una nueva dimen¬ 
sión del mismo, que nos permitirá el acceso a 


otros lenguajes de alto nivel. Por si fuera po 
co, su capacidad de manejo numérico supera 
incluso el de otros compiladores cuya especia- 
lización está más comprometida. 

Tal es el caso de algunos disponibles para 
Amstrad como el Pascal, Fortran y el pro¬ 
pio Locomotive. A efectos de dar cifras, ahí 
van: 

Desde 10 ?—64 hasta 9.9999999999999 # 
10 ?62. Realmente notable si tenemos en cuen¬ 
ta que la mantisa tiene 14 dígitos significati¬ 
vos. 

CBasic es un lenguaje potente y rápido. 

Para demostrarlo hemos hecho algunas 
pruebas: 

BUCLE VACIO: desde 1 a 100.000 no men¬ 
surable. Desde luego menos de 1 segundo... 

CALCULO E IMPRESION DE LOS 50 PRI¬ 
MEROS NUMEROS NATURALES: 25 sg. 

BUCLE CON REALIZACION DE 300 SU¬ 
MAS E IMPRESION: 18 sg. 

TIEMPO DE COMPILACION (CB80): 38 sg. 

TIEMPO DE ENLAZADO (LK80): 31 sg. 

CLASIFICACION DE BURBUJA 50 NUME¬ 
ROS: en imprimir matriz sin clasificar, ordenar 
e imprimir matriz clasificada: 4 sg. 

TIEMPO DE COMPILACION (CB80): 23 sg. 

TIEMPO DE ENLAZADO (L 0 K 88 O): 24 sg. 

Los listados de los programas se incluyen a 
continuación: 



REM CLASIFICACION POR BURBUJA 
REM POR DANIEL PALOMO Y MARTIN 
CARREIRA 
DIM A(10) 

PRINT CHR$(12) 

RANDOMIZE 
FOR B%=1 TO 10 
A(B%) = INT (RND#100) 

NEXT B% 

DEF IMPRIME 
DEF IMPRIME 
DEF IMPRIME 
DEF IMPRIME 
FEND 

DEF BURBUJA 

PRINT "CLASIFICANDO" 
FOR D% = 1 TO 9 
FOR C%=1 TO 9 
IF A(C%) + A(C% +1) 
THEN T=A(C%) : E 
A(C%)=A(C%+1): e 
A(C% + 1)=T 
NEXT C% 

NEXT D% 

FEND 

CALL IMPRIME 
CALL BURBUJA 
PRINT "LISTA ORDENADA" 

CALL IMPRIME 
END 


PO MINIMO 

loria RAM. 

,$ sin utilizar gráficos. 

nráfiCOS- — 


REM BUCLES 
%DEBUG VI 
DEF BUCLE.VACIO 
INTEGER I, N 
PRINT "BUCLE VACIO" 
I = INKEY 

FOR N = 1 TO 100000 
NEXT N 
I = INKEY 
FEND 


DEF BU.COS 

PRINT "BUCLE COSENO" 
I = INKEY 

FOR N = 1 TO 100 
PRINT COS(N); " 

NEXT N 
I = INKEY 
FEND 


DEF SUMA 

INTEGER I, N, AL, M, SUM, SUMI 
PRINT "SUMA " 

I = INKEY 
RANDOMIZE 
FOR N = 1 TO 99 
FOR M = 1 TOÓ 
AL=INT (RND#1000) 
$UM=SUM+AL 
NEXT M 

SUMI = SUMI +SUM 
PRINT SUM,SUMI 
NEXT N 
I = INKEY 
FEND 


PRINT CHR$(12) 
CALL BUCLE.VACIO 
PRINT CHR$(12) 
CALL BU.COS 
PRINT CHR$(12) 
CALL SUMA 
END 









LO NUESTRO ES HACER BUENAS GESTIONES 

*** * + jf + * + * 4 4 * •¥■■■¥■ 4 4 ¥ ¥ ** •¥■ * + * 4 * + •¥■ * ¥ *** 

FACTURACION. Sólo teclee un código y salen todos los datos del cliente. Numeración correlativa automática. Admite 30 productos* 
distintos por factura. Automáticos, descuentos, cargos, IVA. Proporciona 5 totales por factura. (P.V.P. 15.300 incl. IVA.) • 

PRESUPUESTOS. Guarda en memoria los presupuestos y extiende los facturas. Conceptos de 200 caracteres cada uno (3 renglones 
de escritura). (P.V.P. 18.300 incl. IVA.) 

CUENTAS , PROVEEDORES, BANCOS, CLIENTES. 3 ficheros separados. Resúmenes totales, unitarios o parciales. El mejor 
auxiliar de CONTABILIDAD al día. (P.V.P. 8.600 incl. IVA.) 

CONTROL DE ALMACEN IVA. Código de 9 dígitos alfanuméricos. 25 dígitos denominación. Una sola pantalla entradas y sali¬ 
das, con visión de asientos anteriores. Stocks máximo, mínimo y avisa para reaprovisionamiento. Totales entradas y salidas cada panta¬ 
lla. (P.V.P. 15.300 incl. IVA.) 

CLIENTES (con etiquetas). 11 campos distintos para localización. Etiquetas 4 modelos distintos en salida de dos. El más fiel auxiliar 
ahorrador de tiempo. (P.V.P. 8.600 incl. IVA.) 

RECIBOS. Resuelve el problema interminable a asociaciones, comunidades, colegios. Fijos los campos del normalizado y 12 campos 
libres (4 numéricos con cálculos automáticos). Liquidaciones bancos. (P.V.P. 18.300 incl. IVA.) Con numeración automática (21.200 incl. 

IVA.) 

RESTAURANTES. Tratamiento de minuta y facturas. Resúmenes por grupos. Mesas abiertas permanentemente, correcciones, cam¬ 
bios, etc., hasta emisión fra. final. (P.V.P. 35.000 incl. IVA.) 

IVA POR ALMACEN. Rellena liquidaciones Hacienda. Introduce cuentas IVA gastos. (P.V.P. 18.900 incl. IVA.) 
URBANIZACIONES. Lectura y tratamiento de contadores consumos (agua, gas, luz, etc.). Extensión recibos y totalizaciones ban¬ 
cos. Emisión etiquetas. (P.V.P. 40.000 incl. rVA.) 

LIBROS DEL IVA. Controles de repercutido y soportado orden numérico. Resúmenes estudios comparativos. Rellena liquidación Ha¬ 
cienda. (P.V.P. 16.800 incl. IVA.) 

FACTURACION Y ALMACEN. Gestión unida. Ficheros clientes, productos, descuentos y cargos. Todos los resúmenes. (P.V.P. 
18.900 ¡ncl. IVA.) 

COTIZACIONES. El mejor cuadro comparativo de precios. Le dice el mejor precio proveedor. (P.V.P. 26.300 ¡ncl. IVA.) 
FACTURACION. Sólo teclee un código y salen todos los datos del cliente. Numeración correlativa automática. Admite 30 productos 
distintos por factura. Automáticos, descuentos, cargos, IVA. Proporciona 5 totales para factura. (P.V.P. 15.300 ¡ncl. IVA.) 
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SOFTWARE: ¡¡2 PROGRAMAS POR EL PRECIO DE 1!! 

Y además, completamente gratis, un magnífico reloj de cuarzo. Increíble ¿verdad? 


PING PONG 

Ptas. 

2.295 

SABOTEUR 

2.295 

RAMBO 

2.295 

YIEAR KUNG FU 

2.295 

WORLD SERIES BASEBALL 

2.095 

MAPGAME 

2.750 

RAID 

2.295 

HYPERSPORTS 

2.295 

HIGHWAY ENCOUNTER 

1.750 

HIGHWAY ENCOUNTER DISCO 

3.300 

ALIEN B 

1.750 


DYNAMITE DAN 

Ptas. 

2.100 

SABRE WULF 

1.650 

THEY SOLD A MILLION 

2.500 

FIGHTER PILOT 

1.975 

MASTER OF T. LAMP 

1.950 

NIGHIT SHADE 

1.950 

HACKER 

1.950 

SUPER TEST 

2.300 

TORNADO LOW LEVEL DISCO 

3.300 

TORNADO LOW LEVEL 

1.750 

KNIGHT LORE 

1.750 


SOFTWARE DE REGALO: ¡¡OFERTA 2xlt! 

Beach Head Decathlon Dummy Run Beach Head Southern Belle 



SOFTWARE DE GESTION PROFESIONAL 


DBA II 
CBASIC 
DR DRAW 


17.800 DR. GRAPH 15.100 

15.100 CONTABILIDAD 

15.100 YVTOS. 16.600 


IMPRESORAS 

¡¡20% DTO. SOBRE P.V.P.U 


co^o\^ 0 P tAS 


UNIDAD DE DISCO 5V4' 
PARA AMSTRAD 

34.900 PTAS. 



SINTETIZADOR DE VOZ EN 
CASTELLANO 
15% DTO. 

CASSETTE ESPECIAL ORDENADOR 

5.295 PTAS. 



JOSTICK QUICK SHOT II 
1.995 PTAS. 

JOYSTICK QUICK SHOT V 
2.295 PTAS. 

con la compra de un ¡oystlck 
¡iGRATIS 1 RELOJ DE CUARZO!! 


DISKETTE 5%'' 

295 PTAS. 

DISKETTE 3” 

990 PTAS. 


Pedidos contra reembolso sin ningún gasto de envío. Tels. (91) 275 96 16/274 53 80, o escribiendo a Micro-1. C/ Duque de Sesto, 50. 28009 Madrid 












































El Mejor Amigo 
del Amstrad 

Antonio J. de la Cuadro 


Para cualquier uso «en serio» que se le pretenda 
dar al ordenador será imprescindible contar con 
una impresora. La impresora es, pues, un 
periférico que nos servirá de gran ayuda para 
listar programas, obtener gráficos o incluso para 
convertir al ordenador en una práctica máquina 
de escribir con la ayuda de un «procesador de 

textos». 


tipos de impresora según la forma 
que tienen de escribir los caracteres: 
matricial, de impacto o margarita, 

Tazaaoresoponers^Hase^Las pri¬ 
meras cuentan con una cabeza com¬ 
puesta por un conjunto de puntos 
que componen el carácter solicitado, 
de forma similar a como aparecen en 
la pantalla de vuestro ordenador. 
Las impresoras de margarita 
(«daisy») ya tienen definido el carác¬ 
ter como en una máquina de escri¬ 
bir convencional y obviamente con 
ellas se obtiene una mayor calidad 
de impresión pero, por contraparti¬ 
da, no pueden jugar con las diferen¬ 
tes posibilidades de tamaños de los 
caracteres, ni obtener «soft copys» de 
pantalla ni gráficos definidos por el 
usuario. Los plotters están más orien¬ 
tados a una utilización de trazado¬ 
res de curvas y aunque permiten «di¬ 
bujar» caracteres, su aplicación pa¬ 
ra procesadores de textos no es na¬ 
da recomendable puesto que «escri¬ 
ben» a una velocidad excesivamen¬ 
te lenta (del orden de 5 caracteres 
por segundo, 5 cps). Por último, las 
impresoras láser representan el últi¬ 
mo avance de la tecnología en este 
sector y, a pesar de sus grandes ven¬ 
tajas de rapidez y alta calidad de ca¬ 


racteres y gráficos por la impresión 
de un rayo láser sobre el papel, re¬ 
sultan prohibitivas para el usuario 
medio por su encarecido precio. 

Por sus posibilidades y su buena 
relación precio/calidad nos vamos a 
centrar en el presente dossier en las 
impresoras del tipo matricial (Dot 
Matrix). Aunque podamos encon¬ 
trarlas en el mercado desde las 
20.000 ptas., el precio de una impre¬ 
sora de este tipo de calidad media 
suele oscilar por las 50.000 pesetas, 
y con ella no sólo nos permitirá re¬ 
dactar informes y listar programas si¬ 
no que además dispondremos de 
una pequeña imprenta capaz de ju¬ 
gar con distintos tipos de letra y com¬ 
binarlas con caracteres gráficos. 


Conector «Centronic» 
casi completo 

El Amstrad CPC se comunica con 
la impresora a través de un conec- 
tor «Centronic». Este tipo de conec- 
tor se diferencia del conocido por 
RS-232 en que los datos que envía el 
ordenador a su periférico circulan en 
«paralelo» o simultáneamente a tra¬ 
vés de cables independientes. Por el 
contrario, en el conector RS-232 los 
bits recorren el mismo cable uno de¬ 
trás de otro o en «serie»; por esta 
razón este conector es el que utiliza 
para comunicaciones vía MODEN 
entre ordenadores. 

La impresora funciona con unos 
códigos de caracteres que varían en¬ 
tre 0 y 255, que traducidos en siste- 
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ma binario son respectivamente 
&X00000000 y &X11111111, por lo 
que para definirlos necesitaremos un 
total de 8 bits, o sea, 8 cables en el 
ordenador Centróme. El resto de los 
contactos del Centronic lo forma el 
sistema de «protocolo», esto es las 
normas que deben cumplirse para 
comunicarse el ordenador con la im¬ 
presora. 

Sin embargo, por una extraña ra¬ 
zón, el conector Centronic del Ams- 
trad CPC no está completo, y el bit 
más significativo se encuentra pues¬ 
to siempre en estado bajo (0) varian¬ 
do los códigos entre &X00000000 y 
&X01 lililí, por lo que desde nues¬ 
tro ordenador favorito sólo dispon¬ 
dremos de los 127 primeros caracte¬ 
res de la impresora, afortunadamen¬ 
te los que componen el código AS¬ 
CII (Código Americano Standard pa¬ 
ra el Intercambio de Información), y 
perderemos en principio el segundo 
juego de caracteres dedicado gene¬ 
ralmente a gráficos y alfabeto grie¬ 
go. 

Y decimos en principio porque no 
está todo perdido. Para los afortu¬ 
nados poseedores de una impreso¬ 
ra Seikosha, Admate o New Print, les 
será posible acceder al escondido se¬ 
gundo juego de caracteres median¬ 
te: 


PRINT#8, CHR$(27); " = 

para la Seikosha SP-1000 CPC, o 
bien: 

PRINT#8, CHR$(27); "?0"; 

para los modelos Admate/New Print 
DP-100/DP-140/DP-80/CPA-80. De 
esta forma levantamos el bit más sig¬ 
nificativo al estado alto (1) y accede¬ 
remos a los códigos altos. Para re¬ 
poner el estado normal basta con 
hacer: 


PRINT#8, CHR$(0); 
PRINT#8, CHR$(27); "?l" ; 

Para la Seikosha y Admate/New 
Print respectivamente. 

El resto de usuarios de impresoras 
lo tendrá más difícil, aunque no im¬ 
posible, puesto que en Inglaterra la 
firma Hitech ha creado un periféri¬ 
co que permite acceder al segundo 
juego de caracteres incluyendo ade¬ 
más «copys» de pantalla mediante 
comandos RSX. El kit hardware y 
software se encuentra en el merca¬ 
do británico al precio de 15.75 libras 
y es de esperar que en un futuro al¬ 
gún distribuidor nacional se haga 
cargo de su importación. 
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PRINT#8, CHR$ (27); "P"; 


Debemos recordar que existen im¬ 
presoras que no cuentan con las po¬ 
sibilidades que citamos en el presente 
dossier por lo que por mucho que se 
intenten los comandos que expone¬ 
mos no se conseguirá nada. 

Otro tipo de letra con el que pue¬ 
de contar nuestra impresora es el co¬ 
nocido como 'PROPORCIONAL'. 
Aunque este tamaño de carácter es 
el mismo del tipo 'PICA' no se pue¬ 
de decir en este caso que tenga 10 
cpp puesto que el espaciado de ca¬ 
racteres es inversamente proporcio¬ 
nal al ancho de la letra. Así pues, la 
separación en los caracteres 'w' o 
'm' será menor que la de 'i' o '!'. Su¬ 
poniendo que contaramos con este 
tipo de caracteres bastaría para ac¬ 
tivarlo o desactivarlo respectivamen¬ 
te con: 


PRINT#8, CHR$ (27); "p"; CHR$ 

(n); 


con n = 0 para desactivarlo y n = l 
para activarlo. Hay que resaltar que 
el carácter 'p' debe estar en minís- 
cula. 

Con estos tres tipos de letra tene¬ 
mos la posibilidad de 'CONDENSAR' 
los caracteres convirtiendo el paso 
'PICA' que un cuerpo de letra de 17 
cpp. Para ello, debemos hacer lo que 
se conoce por 'SI': 


PRINT#8, CHR$ (15); 


Cape) y se dispone a cambiar uno de 
sus formatos, en este caso al detec¬ 
tar la letra 'M' -CHR$ (77)— cam¬ 
bia a un tipo de letra ligeramente 
más estrecha. Para volver nueva¬ 
mente al tipo de letra anterior basta 
con hacer: 


Impresoras 


con RAM 


Ya hemos entrado en el comando 
para la impresora: "PRINT#8,", o 
bien en forma abreviada "?Pt8,". 
De ésta podemos ordenar a la im¬ 
presora que escriba una frase, por 
ejemplo, "PRINT#8, MICROHOBBY 
AMSTRAD". Comprobarás que si no 
tienes encendida la impresora, el or¬ 
denador se quedará colgado sin de¬ 
volverte el «Ready». Esto se debe a 
que el sistema de protocolo no de¬ 
vuelve el control al ordenador hasta 
que se haya cumplido la instrucción. 
Estas instrucciones pasan previamen¬ 
te por un «buffer» o tampón de me¬ 
moria que no es más que una espe¬ 
cie de cámara de descomprensión 
que almacena los datos antes de ser 
impresos. 

Habrás comprobado que cuando 
se escriben listados de programas 
largos con el comando "LIST#8", el 
ordenador se queda inmovilizado a 
la espera de terminar el listado. Op¬ 
cionalmente en la mayoría de las im¬ 
presoras que conocemos, el propie¬ 
tario puede adquirir una ampliación 
del buffer de RAM que evita la situa¬ 
ción mencionada, posibilitando la 
utilización del ordenador mientras 
que trabaja la impresora. 


Infinitas posibilidades 


Siempre que se reinicialice y mien¬ 
tras que no se le ordene lo contra¬ 
rio, la impresora escribirá caracteres 
en tamaño «PICA» (10 caracteres por 
pulgada). Si deseamos cambiar el 
tamño de letra al denominado «ELI¬ 
TE» (12 cpp) debemos preparar la 
impresora con: 

PRINT#8, CHR$ (27); "M"; 

De esta forma la impresora reco¬ 
noce el CHR$ (27) (denominado ES- 


odigos de Control 


Denom. 

NUL 

BEL 

BS 

HT 

LF 

VT 

FF 

CR 

50 

51 

DC1 

DC2 

DC3 

DC4 

CAN 

ESC 


Decimal 

CHR$ ( 0) 
CHR$ ( 7) 

CHR$ ( 8) 

CHR$ ( 9) 

CHR$ (10) 
CHR$ (11) 

CHR$ (12) 
CHR$ (13) 

CHR$ (14) 

CHR$ (15) 

CHR$ (17) 
CHR$ (18) 

CHR$ (19) 
CHR$ (20) 
CHR$ (24) 
CHR$ (27) 


Hexadec. Función 

CHR$ (&0) Fin de tabulador con ESC D 
CHR$ (&7) Suena la chicharra de la impresora durante 
0,3 seg. 

CHR$ (&8) Retrocede el cabezal un espacio. Muy útil 
para poner acentos y diéresis 
CHR$ (&9) Desplaza el cabezal a la siguiente posición 
marcada por el tabulador horizontal 
CHR$ (&A) Salta una línea 

CHR$ (&B) Tabulación vertical. Si no está fijada hace un 
LF 

CHR$ (&C) Salta una página 
CHR$ (&D) Retorno de carro. Imprime el contenido del 
buffer y lo vacía 

CHR$ (&E) Modo expandido hasta el final de línea o 
recepción de DC4 

CHR$ (&F) Modo comprimido. Permanece hasta que se 
cancela con DC2 

CHR$ (&11) Pone la impresora en 'SELECT' 

CHR$ (&12) Termina caracteres comprimidos y vacía el 
buffer 

CHR$ (&13) Coloca la impresora en modo 'DESELECT' 
CHR$ (&14) Termina el modo expandido 
CHR$ (&18) Borra todos los caracteres del buffer 
CHR$ (&1B) Código 'ESCAPE'. Prepara la impresora 
para recibir una secuencia de control 
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Para su desconexión tendremos 
que hacer el control 'DC2' que es: 

PRINT#8, CHR$ (18); 

Del mismo modo para obtener un 
carácter 'EXPANDIDO' debemos ha¬ 
cer un control 'SO' y para desacti¬ 
varlo el conocido por 'DC4'. Estos 
dos controles se programan respec¬ 
tivamente con: 

PRINT#8, CHR$ (14); PRINT#8, 
CHR$ (20); 

Otro punto que puede resultar de 
gran interés son los caracteres 'SU- 
PERINDICES' y 'SUBINDICES'. 

Estos tipos de impresión se logran 
comprimiendo a la mitad la altura de 
un carácter normal. 

Para activarlos debemos ha¬ 
cer: 

PRINT#8, CHR$ (27); "S"; CHR$ (n); 

donde n debe ser 1 para 'SUBINDI¬ 
CES' y 0 para 'SUPERINDICES'. Para 
desactivar cualquiera de los modos: 

PRINT#8, CHR$ (27); "T"; 

El 'SUBRAYADO' de los caracte¬ 
res y su posterior desactivación se 
consigue respectivamente con: 

PRINT#8, CHR$ (27); CHR$ 

( 1 ); 

PRINT#8, CHR$ (27); CHR$ 

( 0 ); 

La letra en 'NEGRITA' se consigue 
haciendo una segunda pasada a la 
misma altura con una separación de 
1/120 de pulgada. Este modo no es 
compatible con los caracteres 'SUPE- 
RINDICES' y 'SUBINDICES'. 

Para activarlo o desactivarlo debe¬ 
mos hacer: 

PRINT#8, CHR$ (27); "E"; 

PRINT#8, CHR$ (27); "F"; 

El modo de 'REPICADO' es similar 
al de la 'NEGRITA' pero la segunda 
pasada se hace por encima de la pri¬ 
mera a una altura de 1/144 de pul¬ 
gada. Su activación o desactivación 
se consigue con: 

PRINT#8, CHR$ (27); "G"; 

PRINT#8, CHR$ (27); "H"; 

Hasta aquí prácticamente está to¬ 
do dicho sobre los diferentes tipos de 
letra. No obstante existen impreso¬ 
ras con un tipo de letra llamado 
'NLQ' o de 'ALTA CALIDAD'; con ello 
se permite un estilo de impresión con 
mucha mejor definición que el modo 
estándar. 



SEISKOSHA GP-700 
A COLOR 

Matriz de impresión de 7 x 8. Velocidad de 
impresión 50 cps. 80 columnas. Caracteres 
normales y expandidos, gráfica, cuatro 
tipo de caracteres. Tracción/Fricción. 
Impresión a color. 

Precio . 72.688 ptas. 

Cartucho color . 3.125 ptas. 

Cartucho negro . 1.781 ptas. 



SEISKOSHA 
SP-1000 CPC 

Matriz de puntos de alta velocidad (100 
cps), modo de impresión bidireccional y 
optimizada, capacidad gráfica con alta 
resolución. 8Ó columnas y 137 en 
comprimido. NLQ a 24 cps. Tracción y 
fricción. Introductor automático hoja a 
hoja. Preparada para Centronic de 7 bits 
Amstrad. 

Precio. 72.688 ptas. 

Cartucho tinta . 1.568 ptas. 


k 



BROTHER M-1009 

Velocidad de impresión 50 cps. Impresión 
bidireccional, unidireccional para gráficas. 
Tracción y fricción. Introductor hoja a hoja. 

Precio. 44.000 ptas. 

Cartucho tinta . 516 ptas. 

(*) Existe la versión M-l 109 con 100 cps 
y las mismas características por 51.500 
ptas. 



SEISKOSHA GP-50 A 

Matriz de impresión de 5 X 8 . Velocidad de 
impresión 40 cps. 46 columnas. Caracteres 
normales y expandidos, gráfica. Sólo 
fricción. Alimentador de corriente externo. 

Precio. 22.288 ptas. 

Cartucho tinta . 1.568 ptas. 

, n 

(*) En colores rojo, verde, negro, azul, 
marrón, morado, naranja. 



NEW PRINT/ADMATE 
DP 100 

Matriz de puntos de 8x8. Velocidad de 
impresión 100 cps. Impresión bidireccional. 
Tracción y fricción. 80 columnas en PICA 
y 142 en comprimido. Preparada para 
Centronics de 7 bits. 

Amstrad 

Precio . 62.600 ptas. 

n 

Cartucho tinta . 1.120 ptas. 

(*) Mismas características con 80 cps para 
DP 80 LQ (51.400) y CPA 80 con 80 cps 
y NLQ (62.600 ptas.). 



C.ITOH 7500 AP 

Velocidad de impresión 105 cps. Tracción 
y fricción. 80 columnas en pica y 136 en 
comprimido. Buffer de 2 K. Gráficos por 
bit imagen. 

Precio. 94.528 ptas. 

Cartucho tinta . — 

___ 















































Otra posibilidad que podemos 
conseguir con las impresoras es va¬ 
riar como 'UNE FEED' (LF) . Nueva¬ 
mente nos encontramos con el siste¬ 
ma de medida inglesa en pulgadas 
que es el aue parece que se toma co¬ 
mo estánaard. A continuación expo¬ 
nemos los comandos con su respec¬ 
tiva consecuencia: 


PRINT#8, CHR$ (27); 

"0"; . 

LF a 

PR 1 NT#8, CHR$ (27); 

1/8 " 

LF a 

PRINT#8, CHR$ (27); 

"2"; . 

7/72 ' 

LF a 

PRINT#8, CHR$ (27); 
"3"; CHR$ (n); .... 

1/6 " 

LF a 

PRINT#8, CHR$ (27); 
"A"; CHR$ (n); .... 

n/216' 

LF a 

n/72 ' 


A corazón abierto 

Desmontar la impresora no debe 
causar ningún trauma al usuario. De 
hecho los manuales dan los oportu¬ 
nos consejos para hurgar en su inte¬ 
rior donde precisamente se encuen¬ 
tra un conjunto de microinterrupto- 
res que permiten fijar una serie de 
condiciones como el salto de página 
o 'FORM FEED' (FF), el salto de línea, 
la cantidad de columnas por línea, y 
el conjunto de caracteres. Esto nos 
puede venir que ni pintado si el pa¬ 
pel continuo que hemos escogido no 
está sincronizado con el salto de pá¬ 
gina, o bien queremos fijar los carac¬ 
teres en castellano. 

Habréis podido comprobar las 
enormes posibilidades de las impre¬ 
soras, sus precios están en función de 
la cantidad de formatos de impre¬ 
sión. Si todavía no os habéis decidi¬ 
do nuestro catálogo os servirá de 
gran ayuda. Si yala tenéis es nues¬ 
tro deseo que el presente dossier os 
valga de gran ayuda. 


Consejos 

• Conecta el cable de la impreso¬ 
ra al ordenador con ambos apaga¬ 
dos. 

• Conecta primero el ordenador 
y posteriormente la impresora. 

• Asegúrate que el voltaje que uti¬ 
lizas es el que especifica el fabrican¬ 
te. 

• No toques el cabezal mientras 
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que está imprimiendo ni después de 
imprimir. 

• Cuando utilices papel continúa, 
asegúrate que los agujeros están ali¬ 
neados. 

• Evita doblar la cinta cuando la 
instales. 

• Una vez apagada la impresora 
no la enciendas hasta pasados dos 
segundos. 


• No coloques el tractor cuando 
está en modo de fricción. 

• No intentes imprimir sin papel ni 
cinta. 

• Efectúa periódicamente una lim¬ 
pieza de polvo en el interior de la im¬ 
presora. 

• No hagas caso de estos conse¬ 
jos, si el manual especifica lo contra¬ 
rio. 


PROGRAMA 1 


SALIDA DEL PROGRAMA 1 


10 PRINT#B,CHR*I27))CHR*<64)¡¡REM R 
esetea la impresora. 

20 PRINTtB,CHRt (15) j "Cuerpo 'CONDEN 
SADO' * 17 caracteres por pulgada."* 
REM Activa codigo de control 'SI'. 

30 PRINT#8,CHRt < 18);* REM Desactiva 
codigo 'SI' mediante codigo de cont 
rol ' DC2'. 

40 PRINT#8,CHRt (27) j"M"j"Cuerpo 'EL 
ITE'* 12 caracteres por pulgada."iR 
EM Modo 'ELITE'. 

50 PRINT#8,CHRt(27)j"P" *"Cuerpo ’PI 
CA'* 10 caracteres por pulgada."iRE 
M Desactiva modo 'ELITE' dejando la 
impresora en su estado normal (mod 
o 'PICA' ) . 

60 PRINT#8,CHRt(27 ) j"p"|CHRt<1>l"Cu 
erpo 'PROPORCIONAL'* espaciado prop 
orcional." jREM Modo 'PROPORCIONAL'. 
70 PRINT#B,CHRt < 27 ) |"p"jCHRt(O) j * RE 
M Desactiva modo 'PROPORCIONAL'. 

80 PRINTtB,CHRt<14)»"Modo 'EXPANDID 
0' i 5 caracteres/pulgada.*rem Activ 
a codigo de control 'SO*. 

90 PRINT#8,CHRt (20) |iREM Desactiva 
codigo 'SO' mediante codigo de cont 
rol 'DC4*. 

100 PRINT#B,"Caracteres "» 

110 PRINT#8,CHRt ( 27 ) } "8" »CHRt<1 ) |"S 
UB-Indices"jiREM Modo 'SUBINDICES'. 
120 PRINT#8,CHRt ( 27 > | " T " j " y " j* REM 
Desactiva modo 'SUBINDICES' volvie 
ndo a 'PICA'. 

130 PRINT#8,CHRt(27)»"S"»CHRt(0)\"6 
UPER-Indi ces" iREM Modo 'SUPERINDICE 
S' . 

140 PRINT#8 1 CHRt ( 27)*"T"|"Palabras 
"jiREM Desactiva 'SUPERINDICES' vol 
viendo a 'PICA' para escribir "Pala 
bras ". 

150 PR INT#8,CHRt (27) ;;CHRt (1) j "s 
ubr ayadas." *REM Modo 'SUBRAYADO'. 
160 PRINT#B,CHRt (27) \ "-";CHRt(0) j s 
REM Desactiva modo 'SUBRAYADO'. 

170 PRINT#8,CHRt (27) ; "E";"Caractere 
s 'PICA' en 'NEGRITA' por doble pas 
ada hori zontal . " * REM Modo 'NEGRITA' 

180 PRINT#8,CHRt (27) ; "F"; : REM Desac 
ti va 'NEGRITA'. 

190 PRINT#8,CHRt (27) ; "G";"Caractere 
s 'PICA' en 'REPICADO* por doble pa 
sada en verti cal .":REM Modo 'REPICA 
DO' . 

200 PRINT#8,CHRt (27) ;"H";:REM Desac 
ti va 'REPICADO'. 

210 PRINT#8,STRINGt ( 4,CHRt (10)) ;REM 
Ordena cuatro saltos de linea. 

220 FOR n=l TO 3:PRINT#8,CHRt (27) ; " 
0" ;"Espaciado entre lineas a 1/8 de 
pul gada." :NEXT:REM Espaciado a 1/8 

230 PRINT#8,CHRt (27) ;CHRt(64):REM R 
esetea la impresora 

240 FOR n=l TO 3iPRINT#8,CHRt(27); " 
1"Espaciado entre lineas a 7/72 d 
e pulgada.NEXT:REM Espaciado a 7/ 
72 

250 PRINT#8,CHRt(27);CHRt(64) 

260 FOR n= 1 TO 3:PRINT#8,CHRt (27) } " 
2" ;"Espaciado entre lineas a 1/6 de 
pulgada.NEXT:REM Espaciado a 1/6 

270 PRINT#8,CHRt ( 27 ) ;CHRt ( 64 ) 

280 FOR n=l TO 3:PRINTtB,CHRt (27) j " 
3"?CHRt (10) ; "Espaciado entre lineas 
a 10/216 de pulgada.":NEXT:REM Esp 
aciado a n/216" (n=10) . 

290 PRINT#8,CHRt ( 27 ) ;CHRt ( 64 ) 

300 FOR n=l TO 3:PRINTtB,CHRt (27) ; " 
A";CHRt(2);"Espaciado entre lineas 
a 2/72 de pulgada.":NEXT:REM Espaci 
ado a n/72" (n=2). 

310 PRINT#8,CHRt (27) ;CHRt ( 64 ) 


Cuerpo 'CONDENSADO’: 17 ciricteres 
por pulgada. 


Cuerpo 'ELITE'* 12 caracteres por p 
ulgada. 

Cuerpo 'PICA': 10 caracteres por pu 
1 gada. 

Cuerpo 'PROPORCIONAL': espaciado pr 
oporcional. 

Modo 'EXPANDIDO': 5 caracteres/pulg 
ada.:rem Activa codigo de control ' 
SO ' . 

Caracteres Buu-mdic» y 


Palabras subrayadas.. 

Caracteres 'PICA' en 'NEGRITA' por 
doble pasada horizontal. 


Caracteres 'PICA' en 'REPICADO' por 
doble pasada en vertical. 

Espaciado entre lineas a 1/8 de pul 
gada. 

Espaciado entre lineas a 1/8 de pul 
gada. 

Espaciado entre lineas a 1/8 de pul 
gada. 


f spaciado entre lineas a 7/72 de pu 
gada. 

^sggciado entre lineas a 7/72 de pu 
^sp^ci ado entre lineas a 7/72 de pu 


Espaciado entre lineas a 1/6 de pul 
gada. 

Espaciado entre lineas a 1/6 de pul 
gada. 


Espaciado entre lineas a 1/6 de pul 
gada. 


56?á&¿l§ do entre lineas a 10/216 de 
entre lineas a 10/216 de 
p§ 5 >gk¿j§iclo entre lineas a 10/216 de 


Espaciado entre lineas a 2/72 de pu 
1gada. 


Espaciado entre lineas a 2/72 de pu 
1gada. 


Espaciado entre lineas a 2/72 de pu 
1gada. 




















Anote este nombre 

y 

imagen 





Si necesita uno de los mejores programas originales de gestión. 

— Gestión integrada, facturación, stock, clientes. 

Si desea mecanizar su negocio. 

— Clínicas veterinarias. 

— Vídeo clubs. 

— Administración de fincas. 

— Distribuidoras de cine. 


SOFTWARE para 

uní 


írc'iiirr'i t v 


Si precisa un buen programa técnico. 

— Cálculo de estructuras. 

— Mediciones y presupuestos. 

— Cálculo de vigas. 

— Estructuras espaciales. 

— Andamios. 

— Cálculos en hormigón. 

Si lo que quiere es una aplicación puntual. 

— Declaración de la Renta. 

— lotería primitiva. 

— Agenda multiuso. 

Si busca que le hagan un programa a la medida. 


SOFTWARE NEW UNE, S. A. 
Gabinete de Informática 

Zurbano, 4 - 28010 Madrid - Telfs. 410 40 98 


























Ficheros indexados 

Y MALLARD BASIC 

Javier B arceló 

En el primer número especial de MICROHOBBY 
AMSTRAD se trató el tema de los ficheros en disco 
para la serie de CPC. La aparición del PCW 8256, 
con un Basic distinto e incompatible con el de los 
CPC, entre otras particularidades incorpora un 
interesante módulo de programación, muy raro 
de encontrar en el Basic de ordenadores incluso 
muy superiores en precio: el módulo JETSAM para 
indexación de ficheros. 


I . 

culo anterior además de los que hayan hecho 
programas con ficheros, recordarán el incon¬ 
veniente de los ficheros de acceso aleatorio. 
Cada registro se localizaba por medio de su 
número, por lo que si éste no era fácil de re¬ 
cordar, mediante una fórmula, o por que és¬ 
te coincida, por ejemplo, con el número de 
cliente, etc... resultaba que para buscar un re¬ 
gistro había que leer todos los anteriores, con 
lo que la principal facilidad que otorgaban es¬ 
tos ficheros quedaba anulada. Este problema 
es el origen de los ficheros indexados. Un fi¬ 
chero indexado es un fichero que posee un ín¬ 
dice, al igual que un libro, de manera que la 
localización de un registro se hace a través de 
éste. 

Un fichero indexado consta en realidad de 
dos ficheros. Uno donde se encuentran los da¬ 
tos introducidos, y otro donde el programa, 
a medida que se introducen los datos en el pri¬ 
mero, va creando un índice de los registros. 
De esta manera, cuando se desee localizar un 
registro, basta con introducir el valor del cam¬ 
po clave —numérico o alfanumérico— y el pro¬ 
pio programa lee el índice hasta localizar la 
clave, con la que está la posición que el re¬ 
gistro ocupa en el fichero de datos, y después 
va al registro de datos. 

Aunque el proceso pueda parecer lento, el 
ahorro de velocidad que así se consigue es 
muy considerable, dado que el fichero de ín¬ 
dices no sólo es más corto que el de datos, si¬ 
no que además se mantiene alfabéticamente 
ordenado según el valor de la clave. La clave 
puede ser cualquier campo de registro, y ade¬ 
más no tiene por qué ser única. Es decir, que 
se puede mantener un fichero con un índice 
ordenado de varias maneras, especificando 
varias claves. 

Naturalmente, el manejo de estos ficheros 
es un poco más complicado que el de los fi¬ 
cheros directos, dado que exige un mayor con¬ 
trol del mismo y, por lo tanto, tiene más co¬ 


mandos, pero en grandes ficheros este modo 
de organización es difícilmente superable. 


. Módulo JETSAM 


El Mallard Basic del PCW 8256 gestiona este 
tipo de ficheros a través de un módulo llama¬ 
do JETSAM. Este módulo se encarga de ges¬ 
tionar —simultáneamente a la gestión normal 
del programa— el fichero de claves. Permite 
hasta ocho tipos de claves, que serán campos 
del registro con una longitud máxima de 32 
caracteres por clave. Por el programa se se¬ 
lecciona el campo o campos que servirán de 
clave, su longitud y el orden de dichas claves. 
Si se utilizan varias claves, hay que especifi¬ 
car un orden de prioridad de las mismas. Es¬ 
to es lo que se llama RANGO de la clave. Es 
decir, que existirán ocho rangos de claves co¬ 
mo máximo, en cada uno de los cuales esta¬ 
rán clasificados todos los registros del fichero 
por distintos conceptos. Disponer de varias cla¬ 
ves. Resulta imprescindible, por ejemplo, cuan¬ 
do en la primera clave seleccionada puedan 
existir valores repetidos en diversos registros. 
(Suponiendo un fichero que se ordene alfabé¬ 
ticamente, el primer apellido puede ser el pri¬ 
mer rango de claves, y si hay repetidos, el se¬ 
gundo rango sería el segundo apellido, el ter¬ 
cero sería el nombre...). 

La manera de operar con los registros de es¬ 
te módulo es mediante una marca invisible que 
se llama puntero. El registro que se utiliza es 
aquél al que está señalando este puntero. Co¬ 
mo el número de registro en estos ficheros es 
gestionado por el módulo JETSAM de mane¬ 
ra automática, lo que hace el programa es 
«ordenar» a JETSAM que busque el regis¬ 
tro con una clave determinada. Cuando JET¬ 
SAM lo encuentra, señala el registro del fichero 
de datos al que corresponde esa clave con este 
puntero. Y entonces es cuando se consulta, 
modifica o cualquier otra operación que se de¬ 
see hacer con él. Comprender que lo que se 
manejará para seleccionar cualquier registro 
es el puntero y no el número de registro, es 


fundamental para entender el manejo de di¬ 
versas funciones que se explicarán a continua¬ 
ción. 

Las operaciones con ficheros indexados se 
hace casi todas a través de funciones en vez 
de comandos. Esta es la principal diferencia 
con los demás tipos de ficheros. Una función 
la realiza y además da un resultado diferen¬ 
te, dependiendo del éxito o fracaso de dicha 
operación. Por esto, al utilizar una función ésta 
se coloca en el segundo término de una ecua¬ 
ción y en el primer término se coloca una va¬ 
riable. Al efectuarse la operación, la variable 
pasa a almacenar un valor que informa sobre 
el resultado de la operación. Es recomenda¬ 
ble utilizar esta posibilidad asociada a una su¬ 
brutina de detección de fallos, para tener la 
certeza de que la operación se ha efectuado 
correctamente. Existen distintos resultados se¬ 
gún la función que se emplee, y en todos el 
valor 0 quiere decir que se ha efectuado la 
operación correctamente, mientras que los de¬ 
más valores, que pueden diferir según la fun¬ 
ción, informan de distintas razones por las que 
ésta no se ha podido hacer con normalidad. 

Para explicar las diferentes fases del funcio¬ 
namiento de estos ficheros, se usará como re¬ 
ferencia el programa ejemplo que aparece con 
este artículo. Este programa, muy sencillo, pro¬ 
porciona la clasificación de los equipos en la 
liga, introduciéndole primero los equipos y 
después los resultados de las ¡ornadas. El fi¬ 
chero indexado es el fichero de equipos, dón¬ 
de se actualizan los puntos y los goles cada 
vez que se introducen los resultados de una 
¡ornada. Los resultados de las jornadas van 
en un fichero directo muy sencillo, por lo que 
no se entrará en detalles de éste. La única par¬ 
ticularidad que presenta este programa es que 
está hecho para doce equipos, por lo que si 
se desea utilizar con más, habrá que modifi¬ 
car en la línea 90, la variable EQUIPOS. 


Creación del fichero 


La primera diferencia que tienen estos fiche¬ 
ros con los demás es que éstos deben ser crea¬ 
dos en el disco antes de ser utilizados. Pero 
antes de esto, cuando se quiera operar con 
ficheros indexados, lo primero que se hará es 
reservar sitio en la memoria para que JETSAM 
mantenga los índices del programa. Esto es ne¬ 
cesario porque JETSAM mantiene desde que 
el fichero se abre hasta que se cierra la infor¬ 
mación sobre el índice en la memoria, para 
incrementar la velocidad del programa. Esto 
lo hace creando unas zonas reservadas en la 
memoria, llamadas buffers o tampones, que 
son bloques de memoria de 128 bytes. El nú¬ 
mero de tampones que se reservan no es fijo, 
se puede elegir teniendo en cuenta que a ma¬ 
yor cantidad de ellos, más rápidamente fun¬ 
cionarán las operaciones con el fichero, aun¬ 
que naturalmente quede menos memoria dis¬ 
ponible para el resto del programa. En casos 
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normales es suficiente con reservar seis buf- 
fers. La orden para hacer esto es: 

BUFFERS 6 

Esta orden habrá que utilizarla siempre al prin¬ 
cipio de todo programa que utilice ficheros in- 
dexados. En el programa ejemplo está en la 
línea 100. 

La creación del fichero, propiamente dicho, 
se hace en la línea 150. Para esto, se usa la 
orden: 

CREATE 

La descripción de la orden es la siguiente: 
Después de CREATE, y sin coma, poner el nú¬ 
mero de fichero. Este es el número con el que 
nos referiremos a él en sucesivas instrucciones. 
Después poner una coma, entre comillas el 
nombre del fichero de datos, coma, nombré 
del fichero de claves, coma, dos (número ne¬ 
cesario aunque inútil), coma, y la variable que 
contenga la longitud del fichero. (En el ejem¬ 
plo, long.) 

En cuanto a la longitud del fichero, hay que 
puntualizar una cosa. Cuando se esté hacien¬ 
do el diseño de registro, la longitud total del 
mismo se verá incrementada en dos posicio¬ 
nes. Estas dos posiciones se ignorarán en to¬ 
do momento, excepto al dar el valor de la lon¬ 
gitud del registro, y son utilizadas internamente 
por el módulo JETSAM para codificar la rela¬ 
ción con el fichero de claves. 

Al crear el fichero éste queda abierto, por 
lo que si no se va a introducir ningún dato, es 
necesario cerrarlo. Al contrario que los fiche¬ 
ros secuenciales y aleatorios, para cerrar los 
ficheros indexados hay que especificar nece¬ 


sariamente el número del fichero que se cie¬ 
rra con la instrucción: 

CIOSE No. de fichero. 

El cierre del fichero es fundamental. Como se 
ha dicho antes, las actualizaciones en los ín¬ 
dices se hacen en la memoria, y no se graban 
físicamente en el disco hasta que se cierra el 
fichero, por lo que un olvido, o un fallo de co¬ 
rriente, y otra incidencia que impida el cierre 
correcto, haría que dicho fichero no se gra¬ 
base, y el fichero de datos quedase inutiliza¬ 
do. Es lo que se llama fichero inconsistente. Pa¬ 
ra mayor seguridad, si el fichero debe estar 
abierto mucho tiempo, se puede usar el co¬ 
mando CONSOLIDATE. Este graba el conte¬ 
nido de los tampones de claves en el disco, de¬ 
jándolo en el mismo estado en que quedaría 
después de cerrarlo, pero abierto. Equivale a 
hacer CLOSE, y después OPEN. 


Mantenimiento del fichero 


Para abrir un fichero indexo, naturalmente 
ya creado, se utiliza la instrucción: 

OPEN «K» 

En esta instrucción, que se puede ver en las 
líneas 300,530 y 1020, después de la K entre 
comillas, indica que el fichero es de acceso por 
claves, hay que poner el número del fichero, 
que no tiene por qué coincidir con el que se 
puso al crearlo. El número que se da al abrir¬ 
lo es el que luego servirá para referirse a este 
fichero. Después de éste, hay que poner en¬ 


tre comillas el nombre del fichero de datos y 
el de claves, el número 2 y la variable que con¬ 
tenga la longitud del registro, todos ellos se¬ 
parados por comas. La longitud del registro 
se puede omitir si ésta es de 128 caracteres, 
pero hay que ponerla en los restantes casos. 

Aun hay otra instrucción necesaria antes de 
poder operar con estos ficheros. Esta sirve pa¬ 
ra definir el diseño del registro, y es: 

FIELD número de fichero, longitud AS nombre 
de campo. 

Si se ven las líneas 310, 550 y 1030 se obser¬ 
va que después de la instrucción viene el nú¬ 
mero del fichero al que se refiere, y posterior¬ 
mente, separados por comas, los campos de 
los que consta el registro con su longitud. Se 
pone primero la longitud del primer campo, 
la palabra (AS) y su nombre, y separados por 
comas los demás campos que tengan el regis¬ 
tro. No hay que considerar los dos caracte¬ 
res que reserva JETSAM para su uso, luego 
la suma de la longitud de los campos que apa¬ 
rezcan en este comando, debe sumarse la lon¬ 
gitud total del registro menos dos. En este pun¬ 
to hay que aclarar que a la hora de introdu¬ 
cir datos en las variables que aparecen en es¬ 
ta instrucción, NO se puede hacer directamen¬ 
te. Hay que utilizar las instrucciones LSET, RSET 
y MID$. Si se ve la línea 750, no se lograría 
el mismo efecto haciendo: 

nombre$ = noml$ 

sino que se crearía una variable llamada 
nombre$ que no tiene nada que ver con la de¬ 
finida en la instrucción FIELD. Hay, pues, que 
poner antes LSET, RSET o MID$ ANTES de la 
variable nombre$ LSET coge de la variable de 
la segunda parte de la igualdad empezando 
por la izquierda, el número de caracteres ne¬ 
cesario para completar la longitud dada a la 
variable de la primera parte en la instrucción 
FIELD. RSET hace lo mismo, pero empezando 
por la derecha. Y MID$ permite elegir una zo¬ 
na intermedia de dicha variable. 

Explicadas las primeras instrucciones, hay 
que pasar a explicar las funciones de las que 
dispone JETSAM para gestionar estos ficheros. 
Antes que nada, se les llama funciones por¬ 
que dan un resultado. Es decir, que al escri¬ 
bir, leer, buscar, etc... podemos saber si el re¬ 
sultado es correcto o no mediante el resulta¬ 
do de la función. La línea 430 del ejemplo, al¬ 
macena en la variable RDO el resultado de 
una función (que se explicará más tarde) y va 
a la subrutina de confirmación de resultados, 
a partir de la línea 1360, para comprobar cuál 
ha sido el resultado de la operación realiza¬ 
da, y lo presenta en pantalla. Aunque una vez 
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depurado su programa y comprobado que 
funciona correctamente, esto no sea en abso¬ 
luto necesario, mientras se construye y se prue¬ 
ba el programa resulta de suma utilidad para 
darse cuenta de algunos fallos difíciles de no¬ 
tar de otro modo. 

Una vez explicado esto, pasemos revista a 
las diversas funciones que incluye el módulo 
JETSAM. 

ADDREC escribe los datos que estén alma¬ 
cenados en las variables de la instrucción 
FIELD en el registro siguiente al último que ha¬ 
ya en el fichero, y el puntero queda apuntán¬ 
dole. Además añade la clave de dicho regis¬ 
tro en el fichero de claves. Como se ve en la 
línea 430 del ejemplo, la forma es: 

Variable = ADDREC(No. 

Fichero,2,rango, clave) 

En el campo (Variable) se almacena el resul¬ 
tado de la operación que añade el registro al 
fichero, y además toma el campo que aparez¬ 
ca en (clave) y los sitúa en el rango indicado 
actualizando dicho rango de claves. 

Pero como se ha dicho, se puede tener cla¬ 
sificado un fichero por distintas claves. En ese 
caso, después de esta instrucción hay que po¬ 
ner esta otra: 

Variable=ADDKEY(No. Fichero,0,rango,cla¬ 
ve,No. de Registro) 

El funcionamiento de ésta es similar al de la 
función anterior, pero hay que añadir una co¬ 
sa: el número de registro de dicha clave. Pa¬ 
ra esto, habrá que averiguar el No. de regis¬ 
tro que acaba de utilizar ADDREC. (dado que 
hay que incorporar una nueva clave al regis¬ 
tro que ha sido grabado anteriormente.) Esto 
se hace a través de la siguiente función: 

Variable = FETCHREC (No. de fichero) 

En esta variable tomará el valor del registro 
al que esté señalando el puntero, pudiendo in¬ 
cluirlo después en otras funciones. Esto es lo 
que hacen las líneas 450 y 460 del ejemplo. 

También se puede necesitar saber el rango 
de la última clave introducida. Para esto se uti¬ 
liza: 

Varible = FETCHRANK (No. de fichero) 

Donde variable tomará el valor del último 
rango que se haya utilizado. En caso de ne¬ 
cesitar el contenido de la última clave utiliza¬ 
da, se usa: 

Var¡able$ = FETCHKEY$(No. de Fichero) 

Que como en anteriores funciones, almacena¬ 
rá en variables$ el contenido de la última cla¬ 
ve utilizada. 

Para borrar una clave del fichero, hay que 
tomar alguna precaución. Si el registro al que 
corresponde esa clave no tiene además otra 
clave, es decir, si ésta es única, al borrarla es 
como si borrásemos el registro de datos, da¬ 
do que no tenemos manera de acceder a él. 
Por esto, si sólo se desea cambiar una clave 
por otra, es recomendable primero añadir la 
clave nueva (ADDKEY) y luego borrar la ac¬ 
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tual. Esta se borra a través de la función: 
Variable= DELKEY (No.Fichero,Oposición) 

La posición es optativa. Si no se pone, borra¬ 
rá la posición a la que señale el puntero en 
ese momento, por lo que si no es esa la que 
se desea borrar, habrá que situar el puntero 
previamente en la clave deseada, o bien in¬ 
vestigar la posición de la clave que se quiera 
borrar. Ambas cosas se hacen a través de las 
funciones de búsqueda, que se ven posterior¬ 
mente. 

Se puede optar entre admitir claves repeti¬ 
das o no. Si se quiere impedir que el progra¬ 
ma admita claves repetidas, hay que usar la 
función RANKSPEC de la siguiente manera: 

Variable = RANKSPEC (No.Fichero,No. 
Clave, 0) 

Esta función, no aparece explicada en el ma¬ 
nual de instrucciones más que de una mane¬ 
ra superficial. 


Búsqueda de registros 


Dado que el número de registro aquí sirve 
para bien poco, el módulo JETSAM propor¬ 
ciona varias funciones que se encargan de bus¬ 
car el registro que se desea. El resultado de 
estas funciones permite saber si se ha encon¬ 
trado otro registro con la misma clave, una cla¬ 
ve distinta dentro del mismo rango, una cla¬ 
ve nueva en distinto rango, o que no se ha en¬ 
contrado dicha clave. Antes de empezar con 
las instrucciones, hay que entender que sólo 
hay un fichero de claves, aunque se dispon¬ 
ga de varios rangos de indexación. A partir 
de la última clave de un rango, empieza la pri¬ 
mera clave del siguiente rango, por lo que la 
búsqueda en un rango puede dar positiva en 
otro rango distinto. Para este caso, el resulta¬ 
do de la función NO es el mismo, por lo que 
en todo momento se puede saber dónde se ha 


encontrado, y si interesa el registro encontra¬ 
do o no. 

SEEKKEY busca en el fichero el primer re¬ 
gistro cuya clave sea igual a la dada, dentro 
del rango dado. En el ejemplo, está en línea 
1340. La forma de esta función es: 
varible= SEEKKY(No. Fichero,0,rango,clave) 
Si hay más registros con idéntica clave, y se 
quiere seguir con la búsqueda, se utilizará 
SEEKNEXT, que sigue recorriendo el fichero 
buscando la misma clave en el mismo rango 
anteriormente dados. En el ejemplo está en la 
línea 1190 y su forma es: 
variable = SEEKNEXT (No. Fichero,Oposición 
de búsqueda) 

La posición de búsqueda es opcional, de ma¬ 
nera que si no se da buscará en el mismo ran¬ 
go a partir de la posición a la que señale el 
puntero, y en caso contrario a partir de la po¬ 
sición que se indique. 

La función SEEKPREV es idéntica a la ante¬ 
rior, pero busca la clave anterior a la indica¬ 
da. Su sintaxis es también idéntica a la ante¬ 
rior. 

SEEKSET es útil en caso de que el fichero de 
índices contenga claves repetidas. Su sintaxis 
es: 

Variable=SEEKSET (No.Fichero,Oposición de 
búsqueda) 

Si hay claves repetidas, esta función se salta 
las claves ¡guales a la actual, hasta la prime¬ 
ra clave distinta de éstas. 


Lectura y escritura 
en el fichero 


Hasta ahora se ha hablado principalmente 
del puntero que señala al registro. NO se ha 
hablado de cómo extraer información del fi¬ 
chero, ni cómo reescribir la misma en un re¬ 
gistro que ya existía. Hay que recordar que 
ADDREC añade un registro después del últi¬ 
mo, pero no sirve para modificar datos en re- 



















gistros intermedios. Pues bien, si se ha enten¬ 
dido lo anterior, esto está «chupao». Sim¬ 
plemente se coloca el puntero señalando al re¬ 
gistro deseado, y luego si se quiere leer el re¬ 
gistro, se utiliza la instrucción: 

GET No. de fichero 

o si se quiere escribir en ese registro, (una vez 
dados sus valores a los campos del registro me¬ 
diante LSET, etc...) se utiliza la instrucción: 

PUT No. de fichero 

Como se ve, no hay que poner el número 
del registro que se desea leer o escribir. Es el 
puntero el que se encarga de indicar cuál es 
el registro que se va a leer o escribir. Por lo 
tanto, sólo hay que ocuparse de que éste se¬ 
ñale al registro que se desea. En el ejemplo, 
las líneas 600, 870, 940 y 1120 realizan esta 
función. 


Conclusiones 


Las peculiares características de este tipo de 
ficheros, lo hacen especialmente adecuadas 
para programas de gestión. Programas como 
controles de stock, contabilidad, presupuestos, 
etc... sin disponer de ficheros indexados serían 
muy complejos, y excesivamente lentos. El fun¬ 
cionamiento de este módulo es muy bueno, 
aunque un tanto complicado. Pero el proble¬ 
ma es entender su funcionamiento, no hacer 
el programa. Una vez entendido, cosa que se 
logra con un poco de práctica, nuestro hori¬ 
zonte de programación se amplía considera¬ 
blemente. Desgraciadamente sólo está al al¬ 
cance del PCW y no de los CPC con disco. Pa¬ 
ra éstos, se puede simular la indexación, rea¬ 
lizando a través del programa algunas de las 
funciones que hacen estos ficheros. El mayor 
problema será actualizar el fichero de índices 
cada vez que se modifique el de datos. Es una 
tarea de programación complicada, pero efec¬ 
tiva. 

Por último un consejo. Para realizar un buen 
programa con estos ficheros, es necesario te¬ 
ner las ideas muy claras. Pensar siempre en 
el camino más corto, y éste suele ser utilizar 
la mayoría de las funciones que JETSAM nos 
proporciona. Si no se es remiso a la hora de 
utilizarlas, nuestro programa será un poco más 
largo, pero mucho más rápido y eficaz. Y pa¬ 
ra pensar el programa, lápiz y papel. Antes 
de meterse con el ordenador, definir clara¬ 
mente lo que se necesita y cómo se quiere ha¬ 
cer. Si esto es necesario en prácticamente to¬ 
dos los programas, si manejan este tipo de fi¬ 
cheros es imprescindible. 


Estructura del programa 
de ejemplo 


Para demostrar algunas de las fundones que 
se han explicado anteriormente, obsérvese la 
estructura del programa del ejemplo: 


Línea 100: Se establece el número de tam- 
pones que se van a reservar. 

Línea 120: Se busca en el disco si existen 
el fichero de datos y el de claves. 

Línea 150: Si no existen los ficheros, se 
crean. Se ha optado por darles el mismo nom¬ 
bre con distinta extensión por cuestión de cos¬ 
tumbre, pero ambos nombres pueden ser di¬ 
ferentes en todo. 

Línea 160: Se cierra el fichero. Aunque pa¬ 
ra introducir datos no haría falta cerrarlo, co¬ 
mo sólo se va a crear el fichero una vez pero 
habrá que abrirlo cada vez que se necesite, 
en este caso es necesario cerrrarlo. 

Línea 300: Se abre el fichero. La longitud 
del registro está almacenada en la variable 
Long, en la línea 100. 

Línea 310: Se establecen la longitud y el 
nombre de los campos que forman el registro. 
La suma de la longitud de todos los campos 
es 37, que sumados a los 2 caracteres que ne¬ 
cesita JETSAM para gestionar el fichero, da 
los 39 de la longitud del registro. 

Línea 400: Se almacenan los nuevos valo¬ 
res en las variables mediante LSET. Los núme¬ 
ros se almacenan empaquetados mediante 
MKi$. 

Línea 430: Se graba el registro, y se verifi¬ 
ca el resultado de la operación, mediante 
RDO. El primer rango de claves se establece 
con los puntos de cada equipo. 

Línea 450: Se averigua el número del re¬ 
gistro al que señala el puntero mediante 
FETCHREC. 

Línea 460: Utilizando el dato anterior, se 
establece un nuevo rango usando como cam¬ 
po de claves el nombre del equipo. 

Línea 810: Se va a la subrutina de búsque¬ 
da, para situar el puntero en el registro co¬ 
rrespondiente al primer equipo. 

Línea 870: Una vez modificados los datos 
del registro, se graba. 

Línea 880: Se va a la subrutina de búsque¬ 
da, para situar el puntero en el registro co¬ 
rrespondiente al segundo equipo. 

Línea 940: Igual que la línea 870. 



Línea 950: Se consolidan el fichero de da¬ 
tos y el de claves, quedando listos para intro¬ 
ducir más resultados. No es necesario hacer¬ 
lo, pero puede evitar fallos, aunque haga el 
programa un poco más lento. 

Línea 1100: Buscamos la primera clave del 
primer rango. El puntero queda señalando a 
esta clave. 

Línea 1120: Se lee el registro al que seña¬ 
la el puntero. 

Línea 1190: Pone el puntero señalando la 
siguiente clave, y repite el bucle de lectura. 

Línea 1330: Principio de la subrutina de 
búsqueda. Sitúa el puntero señalando la pri¬ 
mera clave del rango 1. 

Línea 1340: A partir de la posición ante¬ 
rior, busca en este rango el dato pedido, que 
está almacenado en la variable NOMBRE$. 

Línea 1370: Comienza la subrutina que 
confirma el resultado de las operaciones. En 
principio, presentar esto en pantalla es útil pa¬ 
ra saber si funciona correctamente, aunque 
luego se pueda suprimir. 


Nota sobre campos 
empaquetados 


La función MKI$ transforma un número en¬ 
tero en una cadena compacta con una longi¬ 
tud de 2 bytes. Así se optimiza su almacena¬ 
miento en el disco, ahorrando espacio. Pero 
un número «empaquetado» no puede ser 
presentado en pantalla, ni se puede operar 
con él. Hay que reconvertirlo, mediante la fun¬ 
ción CVI. 



M. AMSTRAD ESPECIAL 19 














10 ' I#f4**«t**ft***t«»*»*»*«» 

20 * MICROHOBBY AMSTRAD 

30 ’ Ficheros Indexados 

40 ’ AMSTRAD PCV 8256 

50 • F.J.B.T. 

60 ’************************* 

70 •**** INICIALIZACION. 

80 elsS=CHRS(27 ) +"E”+CHRS(27)+”H" 

90 Equipos=12:NR=INT<equipos/2 ) 

100 BUFFERS 6:long=39:DIM claS(equi 
pos),p(equipos) 

110 PRINT cls$:PRINT:PRINT:PRINT: 

120 a$=FINDS("equipos.dat" ) :bS=FIND 
S("equipos.key" ) 

130 IF aS< >"" AND bSO"" THEN 170 
140 •**** CREACION DE LOS FICHEROS 
150 CREATE 1EQUIPOS.DAT"EQUIPOS 
.KEY",2,long 
160 CLOSE 1 

170 ***** MENU PRINCIPAL 
180 PRINT clsS 

190 PRINT:PRINT:PRINT: PRINT: PRINT: P 
RINT TAB (35) "MENU GENERAL" 

200 PRINT TAB (35)"============" 

210 PRINT:PRINT TAB (30) " 1.- ALTA 
S de Equipos." 

220 PRINT:PRINT TAB (30) " 2.- Intr 
oduccion de Resultados." 

230 PRINT:PRINT TAB (30) " 3.- Cías 
ificacion." 

240 PRINT:PRINT TAB (30) " 4.- Fin 
de Programa." 

250 PRINT:PRINT:PRINT TAB (25);:INP 
UT "Seleccione Opción.:",Op 
260 IF op<l OR op>4 THEN 180 
270 ON op GOTO 280,520,1010,1300 
280 ’**** OPCION 1 

290 ’**** Apertura Fichero Indexado 

300 OPEN "K",1,"EQUIPOS.DAT","EQUIP 
OS.KEY",2,long 

310 FIELD 1,15 AS Nombres,2 AS PGCS 
,2 AS PGFS.2 ÁS PECS.2 AS PEFS,2 AS 
PPCS.2 AS PPFS,2 AS GFCS,2 AS GCCS 
,2 AS GFFS.2 AS GCFS.2 AS PtsS 
320 PRINT clsS 

330 PRINT: PRINT:PRINT: PRINT TAB (30 
) "ALTAS DE EQUIPOS" 

340 PRINT TAB (30) " - 

350 PRINT:PRINT:PRINT TAB (25);:INP 
UT "Nombre. 15 C. : ";nomS:nomS=UPP 
ERS(nomS) 

360 IF LEN(nomS ) >12 THEN PRINT:PRIN 
T TAB (25) " Longitud Excesiva": GO 
TO 480 

370 LSET nombreS=noraS 

380 GOSUB 1320: IF busq=0 THEN PRIN 

T:PRINT TAB (25) "Registro existent 

e": GOTO 480 

390 Da=0 

400 LSET pgcS=MKlSvda>:LSET pgf*=MK 
IS(da):LSET pecS=MKIS(da):LSET pefS 
=MKIS(da): 

410 LSET ppcS=MKI$(da):LSET ppfS=MK 
1$(da):LSET gfcS=MKIS(da) : LSET gccS 
=MKIS(da): 

420 LSET gffS=MKIS(da) : LSET gcfS=MK 
IS(da):LSET ptsS=MKIS(da) 

430 rdo=ADDREC ( 1,2,0,ptsS) 

440 GOSUB 1360 

450 numreg=FETCHREC(1) 

460 rdo=ADDKEY ( 1,0,1,nombres, numreg 
) 

470 GOSUB 1360 

480 PRINT:PRINT:PRINT TAB (25);:INP 
UT "¿Desea grabar otro registro? (S 
/N).: ",reS:reS=UPPERS(reS) 

490 IF reS="S" THEN 320 

500 CLOSE 1:GOTO 170 

510 * ****************************** 

520 '**** OPCION 2 

530 OPEN "K",1,"EQUIPOS.DAT"."EQUIP 
OS.KEY",2, long 

540 OPEN "R",2,"JORNADAS.DAT",35 


550 FIELD 1,15 AS Nombres,2 AS PGCS 
,2 AS PGFS,2 AS PECS.2 AS PEFS,2 AS 
PPCS.2 AS PPFS.2 AS GFCS,2 AS GCCS 
,2 AS GFFS.2 AS GCFS.2 AS PtsS 
560 FIELD 2,1 AS cS,15 AS eqlS,2 AS 
glS,15 AS eq2S,2 AS g2S 
570 PRINT clsS 

580 PRINT:PRINT:PRINT:PRINT TAB (30 
) "INTRODUCCION DE RESULTADOS" 

590 PRINT:PRINT:PRINT TAB (25);:INP 
UT "N. # de Jornada. . " , j or 

600 GET 2,(l+((jor-l)*nr)) 

610 IF cS="*" THEN PRINT TAB (20);: 
INPUT "Jornada con datos. ¿Desea re 
introducirlos? (S/N).:”,reS:reS=UPP 
ERS(reS) 

620 IF reS="N" THEN 570 
630 FOR x=1 TO nr 
640 PRINT clsS 

650 PRINT:PRINT:PRINT:PRINT TAB(30) 
"INTRODUCCION DE RESULTADOS. Jorn 
ada N/ ";j or 

660 PRINT TAB (30) "- 


670 PRINT:PRINT:PRINT TAB(25);: INP 
UT "Equipo de Casa. 15 C.:", nomlS: 
nomlS=UPPERS(nomlS) 

680 PRINT:PRINT TAB (25);: INPUT "G 

oles.:",gol 

690 PRINT:PRINT:PRINT TAB(25);: INP 
UT "Equipo Visitante 15C.:",nora2S:n 
om2S=UPPERS(nom2S) 

700 PRINT:PRINT TAB (25);: INPUT "G 

oles.:”.go2 

710 PRINT:PRINT:PRINT:PRINT TAB(30) 
;: INPUT "¿CONFORME? (S/N).: ",reS: 
reS=UPPERS(reS) 

720 IF r«S="N" THEN 640 

730 ' **** Actualizar Fichero Direct 

o 

740 LSET C S="*" 

750 LSET norabreS=nomlS: GOSUB 1320: 
IF busqOO THEN 990 
760 LSET nombreS=nom2S: GOSUB 1320: 
IF busqOO THEN 990 

770 LSET eqlS=nomlS:LSET glS=MKIS(g 
ol) 

780 LSET eq2S=nora2S:LSET g2S=MKIS(g 
□2) 

790 PUT 2,(x+((jor-1)*nr)) 

800 ’*♦** Actualizar Fichero Indexa 
do 

810 LSET nombreS = nomlS: GOSUB 1320:G 
ET 1 

820 IF gol>go2 THEN pgc=CVI(pgcS)+1 
:LSET pgcS=MKI$(pgc):pts=CVI(ptsS)+ 
2:LSET ptsS=MKIS(pts) 

830 IF gol=go2 THEN pec=CVI(pecS)+1 
:LSET pecS = MKIS(pee) : pts=CVI(ptsS) + 
1:LSET ptsS=MKIS(pts) 

840 IF gol<go2 THEN ppc=CVI(ppcS)+1 
:LSET ppcS=MKI$(ppc) 

850 LSET gfcS=MKIS(CVI(gfcS)+gol) 
860 LSET gcc$=MKIS(CVI(gccS)+go2) 
870 PUT 1 

880 LSET nombreS=nom2S:GOSUB 1320:G 
ET 1 

890 IF gol<go2 THEN pgf=CVI(pgfS)+1 
:LSET pgf$=MKIS(pgf):pts=CVI(ptsS)+ 
2:LSET pts$=MKIS(pts) 

900 IF gol=go2 THEN pef=CVI(pefS)+1 
: LSET pefS = MKIS(pef):pts=CVI(ptsS) + 
1:LSET ptsS=MKIS(pts) 

910 IF gol>go2 THEN ppf=CVI(ppfS)+l 
:LSET ppfS=MKIS(ppf) 

920 LSET gffS=MKIS(CVI(gffS)+go2) 

930 LSET gcfS=MKIS(CVI(gcfS)+gol) 

940 PUT 1 

950 rdo=CONSOLIDATE(1) 

960 NEXT 

970 CLOSE 2:CLOSE 1: 

980 GOTO 170 

990 PRINT:PRINT:PRINT TAB (25) "Err 
or en nombre de Equipo.":GOTO 640 


1000 ’**************************** 
1010 ’**** OPCION 3 

1020 OPEN "K",1,"EQUIPOS.DAT","EQUI 
POS.KEY",2, long 

1030 FIELD 1,15 AS NombreS,2 AS PGC 

5.2 AS PGFS,2 AS PECS,2 AS PEFS,2 A 
S PPCS.2 AS PPFS,2 AS GFCS,2 AS GCC 

5.2 AS GFFS.2 AS GCFS.2 AS PtsS 
1040 PRINT clsS 

1050 PRINT:PRINT:PRINT TAB (30) "C 
LASIFICACION" 

1060 PRINT TAB (30) "============== 


1070 PRINT "EQUIPO JUGA 

DOS GANADOS EMPATADOS PERDIDOS 
GOL.FAVOR GOL. CONTRA PUNTOS" 
1080 PRINT "C=Casa. F=Fuera C 

F C F C F C F 

C F C F" 

1090 PRINT STRINGS (90, ) 

1100 rdo=SEEKRANK (1,0,0) 

1110 FOR x=l TO equipos 
1120 GET 1 

1130 pgc=CVI(pgcS):pec=CVI(pecS) : pp 
c=CVI(ppcS):pgf=CVI(pgfS):pef=CVI(p 
efS):ppf=CVI(ppf S) 

1140 gfc=CVI(gfcS):gcc=CVI(gccS):gf 
f=CVI(gffS):gcf=CVI(gcfS):pts=CVI (p 
tsS) 

1150 pjc=pgc+pec + ppc:pj f=pgf+pef+pp 
f 

1160 claS(x)= norabreS+" "+STRS(pjc 
)+" "+STRS(pjf)+" "+STRS(pgc)+" 

"+STRS(pgf)+" ”+STRS(pee)+" "+ 

STRS(pef)+" " 

1170 claS(x)=claS(x)+STRS(ppc)+" 

"+STRS(ppf)+" "+STRS(gfc)+" "+S 

TRS(gf f)+" "+STRS(gee)+" ”+S 

TRS(gcf)+” "+STRS(pts) 

1180 p(x)=pts 

1190 rdo=SEEKNEXT(1,0) 

1200 NEXT 

1210 FOR x=l TO equipos 

1220 FOR y=x+l TO equipos 

1230 IF p(y)<p(x) THEN p2=p(x):bS=c 

laS(x):p(x)=p(y):claS(x)=claS(y):p( 

y)=p2:claS(y)=bS 

1240 NEXT y 

1250 NEXT x 

1260 FOR x=equipos TO 1 STEP -1 
1270 PRINT claS(x):NEXT x 
1280 PRINT:PRINT:PRINT:PRINT TAB (3 
4);: INPUT "Pulse INTRO.";in$ 

1290 CLOSE 1:GOTO 180 

1300 ’**** OPCION 4 

1310 CLOSE 1:CLOSE 2:END 

1320 ’**** SUBRUTINA DE BUSQUEDA. 

1330 inic=SEEKRANK(l,0,1) : PRINT "In 

icializacion.: ";inic 

1340 busq=SEEKKEY(1,0,1,norabreS) : PR 

INT "Búsqueda.: " ; busq 

1350 RETURN 

1360 ’**** CONFIRMACION DE RESULTAD 
OS. 

1370 IF rdo=0 THEN PRINT:PRINT TAB( 
25)" Operación Correcta." 

1380 IF rdo=101 THEN PRINT:PRINT TA 
B(25)" Sobrepasado final de claves. 

1390 IF rdo=102 THEN PRINT:PRINT TA 
B(25)" Sobrepasado final de rangos. 

1400 IF rdo=103 THEN PRINT:PRINT TA 
B(25)" Sobrepasada ultima clave.” 
1410 IF rdo=105 THEN PRINT:PRINT TA 
B(25 ) " Clave no encontrada." 

1420 IF rdo=111 THEN PRINT:PRINT TA 
B(25)" Posición de registro indefin 
ida." 

1430 IF rdo>129 THEN PRINT:PRINT TA 
B(25)"Error de bloqueo." 

1440 RETURN 
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Sistemas Operativos 


Autor: E. Riego 

La CPU controla todos los componentes (recursos) 
del ordenador. Sin ello, el microprocesador 
estaría aislado del mundo exterior, y no serviría, 
por tanto, para nada. Para controlar los recursos 
físicos, basta mandar a sus interfaces (circuitos 
electrónicos intermedios que permiten la 
comunicación) las secuencias de bytes necesarias 
para lograr los efectos deseados. 



lizar diferentes tareas y cada una posee una 
codificación, conocida por la CPU. Por ejem¬ 
plo para que el programa sea capaz de leer 
un fichero de datos de un disco tiene que or¬ 
denar al controlador del camino que posicio- 
ne la cabeza lectora sobre la cara, pista y sec¬ 
tor adecuados (que el programa debe obte¬ 
ner de algún modo), y una vez allí leer los 
bytes que se necesiten. Esta operación se rea¬ 
liza muchas veces a lo largo de una sesión de 
trabajo con un ordenador. Para la acción an¬ 
terior (y para muchas más) sería conveniente 
tener una rutina en código máquina a la que 
llamar cada vez que se necesitase. 

El sistema operativo es un conjunto de pro¬ 
gramas o rutinas que se ocupan de gestionar 
los recursos y coordinar los sucesos que se pro¬ 
ducen en el ordenador. Proveen al programa¬ 
dor de la mayoría de la herramientas básicas 
para realizar programas sin tener que repetir 
en cada uno las mismas rutinas, 

Inicialmente los ordenadores carecían de sis¬ 
tema operativo, poseían una serie de clavijas 
que enchufadas en diferentes conectores pro¬ 
ducían las secuencias de introduciones nece¬ 
sarias para realizar las operaciones que espe¬ 
cificaba el código de un programa. Posterior¬ 
mente se descubre la actividad de tener siste¬ 
mas operativos (formados por las rutinas de 
entrada y salida más básicas) dentro del or¬ 
denador en ROM, accesibles desde cualquier 
programa, sin tener que codificar el mismo 
programa por sí mismo. 

Gracias a este cambio las compañías de soft¬ 
ware ahorraron mucho tiempo en el desarro¬ 
llo de productos nuevos, pero seguía sin ser 
una solución totalmente satisfactoria ya que 


ataba a un ordenador a un sistema particu¬ 
lar, que generalmente sólo utilizaba el mismo: 
los ordenadores seguían estando aislados. 

De aquí surgen los sistemas operativos ba¬ 
sados en disco, que poseen en ROM el códi¬ 
go mínimo para cargar cierta parte de la in¬ 
formación contenida en un disco y ejecutar¬ 
la. Así, el mismo ordenador puede usar dife¬ 
rentes sistemas operativos leyéndolos de dis¬ 
co, sin cambiar para nada la estructura inter¬ 
na del mismo. 

Gracias a estos sistemas operativos, un mis¬ 
mo programa puede funcionar en muchas má¬ 
quinas diferentes que corran el mismo sistema 
operativo, sin que las casas creadoras hayan 
tenido que hacerle ningún cambio. Tenemos 
sistemas portables. 

La portabilidad exige una estandarización 
en hardware, sobre todo en cuanto al micro- 
procesador utilizado; deben ser ¡guales o com¬ 
patibles en cuanto a su código máquina. Aun 
así no se puede asegurar que dos máquinas 
diferentes corriendo el mismo sistema opera¬ 
tivo puedan usar el mismo programa sin ha¬ 
ber cambios. Las razones de esta falta de com¬ 
patibilidad se deben a varios factores, los fun¬ 
damentales son que las configuraciones físicas 
de las máquinas no son exactamente las mis¬ 
mas o que el sistema operativo del ordenador 
de una de las máquinas incorpora una mejo¬ 
ra añadida por el fabricante para aumentar 
las prestaciones del mismo, y ésta no es con¬ 
templada por la otra máquina (por ejemplo 
los diferentes formatos de disco encontrados 
en cda máquina que funciona bajo control de 
CP/M). 

Los ordenadores domésticos baratos suelen 
disponer del lenguaje Basic en ROM, con un 
sistema operativo mezclado con el mismo có¬ 
digo Basic (podría decirse que el Basic inclu¬ 
ye dentro de su código las rutinas usuales de 
un sistema operativo), diseñado para aprove¬ 
char al máximo las posibilidades de la máqui¬ 
na y que, por tanto, sería muy costoso de lle¬ 
var a otra. 


Sistemas operativos 
actuales 


CP/M 80 fue el primer sistema operativo ba¬ 
sado en disco para microordenadores basa¬ 
dos en los microprocesadores Z80, 8080 y 
8085, y el primero de una larga serie de sis¬ 
temas que han aparecido después, a menu¬ 
do utilizando características introducidas por 
él. 

Debido a sus exigencias hardware sólo es 
capaz de direccionar 64 Kbytes de memoria 
(aunque la versión 3.0 o CPM/80+direcciona 
128 mediante la técnica de conmutación de 
bancos de memoria), por lo que es muy com¬ 
pacto y sólo 8 Kb de memoria central, conte¬ 
niendo las rutinas esenciales y 6 comandos re¬ 
sidentes de uso general: DIR, ERA, REN, TYPE, 
SAVE, USER, que sirven para obtener el lista¬ 
do del directorio, borrar un fichero de disco, 
cambiarle el nombre, visualizarlo en pantalla, 
grabar en disco alguna zona de memoria y 
asignar un número de usuario, cada uno con 
diferentes ficheros asociados, accesibles sólo 
desde el usuario que los creó. 

Estos comandos son resistentes porque per¬ 
manecen en la memoria todo el tiempo, cual¬ 
quier otra utilidad del sistema operativo o pro¬ 
grama ejecutable permanece en disco como 
fichero. Cada fichero tiene asociado un nom¬ 
bre de 8 letras seguido opcionalmente de un 
punto y una extensión de 3 letras más. Los fi¬ 
cheros ejecutables tienen extensión COM. 

Las unidades poseen los nombres A:, B:, C:, 
D:,... y una referencia completa a un fichero 
incluye la unidad de disco en que permanece 
(es opcional); más el nombre y extensión: A: FI¬ 
CHERO.DAT es un fichero que está en el dis¬ 
co A: con nombre FICHERO y extensión DAT. 

Al cargar el sistema, aparece el indicador 
A + (prompt) que nos informa de qué siste- 
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ma espera órdenes, manteniendo la unidad de 
disco A: como disco activo o por defecto, en 
la que se realiza cualquier operación que no 
lo especifique. Para cambiar, B: seguido de 
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RETURN establece B: como disco defecto, 
apareciendo el indicador B + . 

Cualquier cosa que se teclee seguida de RE¬ 
TURN es interpretada como una orden y el sis¬ 
tema intenta ejecutarla, mirando primero si es 
un comando interno (y ejecutándolo), buscan¬ 
do en el disco que se especifica o en el disco 
por defecto un fichero de tipo COM con el 
nombre dado como orden. Si lo encuentra, lo 
carga en memoria y lo ejecuta. Al acabar el 
proceso, el sistema nos vuelve a enseñar su in¬ 
dicador y permanece en espera a otra orden. 
Cuando una orden no puede ser satisfecha nos 
lo indica mediante un mensaje de error. 

Por ejemplo para obtener el directorio del 
disco B: estando en A: basta escribir DIR B: 
Con TYPE DATOS. TXT visualizamos en pan¬ 
talla el contenido del fichero DATOS. TXT re¬ 
sidente en el disco dado por defecto. Si tal fi¬ 
chero estaba en B: y el disco activo era A: la 
orden debería ser TYPE B: DATOS. TXT. 

Existen otros comandos del sistema que es¬ 
tán en disco, y sólo se cargan en memoria 
cuando son necesarios: PIP permite hacer una 
copia de un fichero en el mismo o en otro dis¬ 
co, STAT permite ver el tamaño de cada fiche¬ 
ro y el espacio libre de un disco. FORMAT sir¬ 
ve para formatear un disco nuevo para utili¬ 
zarlo con CPM/80. COPY hace una copia de 
un disco en otro. 


Cada fichero lleva asociado dos atributos 
que pueden ser (DIR o SYS) y (R/W o R/O), 
respectivamente para ficheros que aparecen 
en el directorio o que están ocultos, y para fi¬ 
cheros sin protección contra escritura o con 
protección. Para ver y cambiar estos atribu¬ 
tos se usa también STAT. 

Una característica notable es la inclusión de 
los caracteres libres o comodín * y ? El carác¬ 
ter * concuerda con cualquier sucesión de ca¬ 
racteres, el ? con cualquier carácter. Dan po¬ 
tencia a los comandos del sistema. Por ejem¬ 
plo para ver un directorio sólo con los fiche¬ 
ros Basic basta escribir DIR *. BAS, para ver 
todos los ficheros ejecutables con nombre de 
3 caracteres DIR ???. COM, y para borrar to¬ 
dos los ficheros cuyo nombre empiece por CT 
y tengan extensión de 3 letras con X en el cen¬ 
tro ERA CT*. ?X?. (Un fichero puede ser bo¬ 
rrado, sólo si su atributo de protección es 
R'W). 

Además de las utilidades del sistema, existe 
una gran biblioteca de programas: lenguajes 
de programación (MBASIC, BASIC80, CBA- 
SIC, PASCAL MT+, FORTRAN 80, COBOL 80, 
TURBO PASCAL, FORTH, ECO C, ADA, PRO¬ 
LOG, MuLISP), procesadores de texto, hojas 
de cálculo, bases de datos, programas de co¬ 
municaciones,... y programas hechos a medi¬ 
da como facturaciones o contabilidades. 
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CP/M 80 es simple de usar y aprender, y 
bastante potente dentro de las limitaciones im¬ 
puestas por el hardware en que está basado. 
Posee una gran biblioteca de programas de 
todo tipo debido a su gran difusión (hasta hace 
2 años era el sistema más usado), capaz de 
satisfacer la mayoría de las necesidades. 

Al surgir los microordenadores de 16 bits 
(con el IBM PC en cabeza), basados en los mi¬ 
croprocesadores INTEL 8088, 8086 (y poste¬ 
riormente 80286) se desarrollan nuevos siste¬ 
mas operativos que inicialmente están basa¬ 
dos en CP/M 80, y después evolucionan para 
aprovechar las posibilidades que brinda un 
hardware más potente y avanzado. Son CP/M 
86 y MS-DOS (PC DOS). 

Digital Research, creadora de CP/M 80, 
construye una versión para 16 bits llamada 
CP/M 86, que de cara al usuario es una répli¬ 
ca casi exacta de lo que era la versión ante¬ 
rior. Posteriormente evoluciona hacia la mul- 
tiárea en forma de Concurrent CP/M y después 
PC-DOS Concurrente, que más adelante co¬ 
mentaremos. 


MS-DOS... 
el más extendido 


Microsoft llega a un acuerdo con IBM para 
que su sistema operativo MS-DOS sea vendi¬ 
do ¡unto con el microordenador de la multi¬ 
nacional, bajo el nombre PC-DOS. La prime¬ 
ra versión de MS-DOS recuerda mucho a 
CP/M 80, pues el funcionamiento es análogo. 
Sin embargo, se nota la potencia de la máqui¬ 
na en cuanto a velocidad y mayor direccio- 
namiento de memoria: posibilidad de construir 
programas muy extensos. Gracias a la amplia 
difusión del IBM PC, MS-DOS se ha converti¬ 
do en el sistema operativo más utilizado. 

A partir de la versión 2.00 Microsoft, em¬ 
pieza a introducir en MS-DOS (PC-DOS) ca¬ 
racterísticas provenientes de UNIX, sistema 
multiusuario multiárea para miniordenadores, 
con el fin de lograr que las últimas versiones 
de MS-DOS sean compatibles con XENIX, una 
versión de UNIX de Microsoft. Lo más relevan¬ 
te es: estructura jerarquizada de los ficheros 
en forma de árbol, redirección de entradas y 
salidas y filtros (pipes). 

La estructura jerarquizada de ficheros per¬ 
mite la existencia de ficheros especiales llama¬ 
dos subdirectorios que son a su vez listas de 
ficheros, algunos de los cuales puede ser tam¬ 
bién un subdirectorio, y así sin límite. Lo que 
tenemos es una estructura arborescente inver¬ 
tida, con la raíz (denominada ^) en la par¬ 
te superior. Los subdirectorios de un directo¬ 
rio son sus «hijos», mientras que él es el «pa¬ 
dre». 

Gracias a esta estructura es posible hacer 
agrupaciones lógicas entre ficheros que com¬ 
partan unas características, por ejemplo con¬ 
viene tener ¡untos todas las utilidades del sis¬ 
tema, todos los programas de un lenguaje de 


programación, documentos escritos con un 
procesador de textos,... También cuando va¬ 
rias personas utilizan el mismo disco se pue¬ 
den separar los ficheros que utilizan ambas. 

Es particularmente útil al utilizar un disco du¬ 
ro en el que pueden caber cientos de ficheros. 

Existen varios comandos para manipular di¬ 
rectorios. MKDIR o MD construye un nuevo 
subdirectorio, hijo del directorio en el que es¬ 
tamos situados. CHDIR o CD nos informa del 
subdirectorio en que nos encontramos y tam¬ 
bién nos permite trasladarnos a otro diferen¬ 
te, especificando la cadena de directorios (se¬ 
parados por el carácter ) que hay que re¬ 
correr desde la raíz (o desde el mismo) para 
llegar el directorio deseado, técnicamente el 
«pathname». RMDIR o RD elimina un sub¬ 
directorio siempre que dentro de él no exista 
ningún fichero. 

Cuando un programa necesita datos y cuan¬ 
do los imprime lo suele hacer en la consola. 
MS-DOS permite redireccionar las entradas y 
salidas, o sea hacer que un programa obten¬ 
ga su entrada de otro sitio que no sea el es¬ 
tándar, y que imprima sus resultados en otro 
dispositivo de salida que no sea el estándar. 
Generalmente se suelen usar ficheros, aunque 
pueden ser impresoras u otros dispositivos. Se 
usa el carácter«<» para la entrada y«+ » 
para la salida. Como ejemplo TYPE DA- 
TOS.TXT + PRNyTYPEDATOS.TXT + FICH 
imprimen respectivamente el fichero DA- 
TOS.TXT en la impresora, y en un fichero de 
disco de nombre FICH. 

Si tenemos un programa ejecutable de nom¬ 
bre PROG.COM, los comandos PROG < 
FICH.ENT, PROG + FICH.SAL, y PROG < 
FICH ENT + FICH.SAL harán que PROG to¬ 
me la entrada del fichero FICH + ENT y lle¬ 
ve la salida a la pantalla en el primer caso, 
tome la entrada de la consola y lleve la sali¬ 
da a FICH.SAL en el segundo, y tome la en¬ 
trada de FICH.ENT y lleve la salida a 
FICH.SAL en el tercero. 

Los filtros son programas que aceptan una 
entrada, realizan alguna operación con ella 
y producen una salida. Se pueden encadenar 
(unidos con el carácter «I») varios filtros («pi- 
peline») de modo que la salida de cada uno 
alimente la entrada del siguiente. En MS-DOS 
hay 3 filtros. MORE escribe la entrada en pan¬ 
talla haciendo pausas entre cada pantalla. 
FIND escribe en la salida las líneas de la en¬ 
trada que contenían un cierto fragmento de 
texto. SORT escribe la salida ordenada. El co¬ 
mando DIR I FIND «.BAT» I SORT + FICH 
crea un fichero de nombre FICH conteniendo 
una lista ordenada de todos los ficheros del 
directorio cuya extensión sea BAT. 

Gracias a la potencia del software se han 
implementado sistemas multiusuario y multiá¬ 
rea. Un sistema multiusuario es aquel que da 
servicio a varios usuarios simultáneamente 
compartiendo sus recursos entre aquéllos. Si 
es multiárea cada usuario (puede ser multiá¬ 
rea monousuario) puede realizar varios tra¬ 
bajos a la vez. La simultaneidad sólo se con¬ 



sigue con varios procesadores, cuando sólo 
hay uno se simula repartiendo el tiempo de 
procesador entre las tareas o usuarios asig¬ 
nándoles a cada una prioridad. El paso de una 
tarea a otra se suele realizar tan rápidamen¬ 
te que se consigue la sensación de paralelis¬ 
mo. 

CCP/M (Concurrent CP/M) y su última ver¬ 
sión PC-DOS Concurrent (versión del anterior) 
ejecutan hasta 4 tareas a la vez, cada una de 
ellas incluida dentro de lo que se conoce co¬ 
mo «consola virtual». Pasar de una tarea a otra 
equivale a cambiar de consola virtual, apa¬ 
reciendo en pantalla la ejecución del progra¬ 
ma de tal consola. Mientras éste se ejecuta (en 
foreground), los demás procesos siguen su cur¬ 
so (en background). CCP/M es compatible con 
CP/M 86 y con la mayoría de los programas 
escritos bajo PC-DOS. Permite como todo sis¬ 
tema multiárea, proteger ficheros para ser 
compartidos entre usuarios o procesos del mis¬ 
mo usuario, establecer prioridades y crear una 
ventana en pantalla (para cada consola vir¬ 
tual), que presenta información sobre el pro¬ 
ceso asociado, cuando se activa la consola vir¬ 
tual del mismo. 


Un lenguaje 
para un sistema... 
¡y viceversa! 


Unix es un sistema operativo multiusuario 
multiárea de miniordenadores, (existen varias 
versiones para IBM PC), incorpora una estruc¬ 
tura jerarquizada de ficheros en forma de ár¬ 
bol invertido, introduce reconducción de en¬ 
tradas y salidas y la existencia de pipelines, 
poseyendo múltiples filtros, un sofisticado sis¬ 
tema de compartición/protección de ficheros 
dando los derechos de acceso a un fichero pa¬ 
ra el mismo usuario, usuarios de un grupo, y 
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para el resto de los usuarios. Posee más de 200 
utilidades, entre las que se suelen incluir un 
compilador de C y de FORTRAN 77, que son 
una gran fuente de ayuda para el programa¬ 
dor. 

Unix está muy ligado al lenguaje C, ya que 
de las 13000 líneas de código, unas 800 se es¬ 
cribieron en ensamblador para satisfacer las 
necesidades de más bajo nivel, el resto se es¬ 
cribió en C, al igual que la mayoría de las uti¬ 
lidades. 

Unix demuestra que hasta un sistema ope¬ 
rativo puede escribirse con un lenguaje de re¬ 
lativo alto nivel como C. Gracias a esto es muy 
fácil transportar un sistema Unix a una máqui¬ 
na nueva. 


Cuando se accede al sistema entra en fun¬ 
cionamiento un programa llamado Shell, que 
es el encargado de reconocer las órdenes emi¬ 
tidas, ejecutando los comandos. 

También permite al usuario escribir progra¬ 
mas en un lenguaje estructurado propio de 
gran potencia y flexibilidad. 

La multiárea hace que los programas corran 
más lentamente que si se ejecutaran individual¬ 
mente, pero proporcionan otras ventajas. 
Aprovecha los tiempos muertos en espera de 
datos o en entradas y salidas a dispositivos, 
y siempre está a disposición del usuario. 

El usuario nunca tiene que esperar a que fi¬ 
nalice un proceso para poder realizar otra co¬ 
sa, la máquina está disponible en cualquier 
momento. La concurrencia se adapta mejor 
a la forma de trabajar del hombre, el ejem¬ 
plo típico es el programador que simultánea¬ 
mente compila un programa, imprime el fiche¬ 
ro fuente y hace modificaciones en el mismo. 
Cada tarea irá lenta que ejecutada por sepa¬ 
rado, pero la ventaja de proceder así es evi¬ 
dente. 

El sistema operativo del Macintosh se dife¬ 
rencia de los sistemas anteriores en el interfa- 
ce con el usuario, que no se relaciona con pro¬ 
cedimientos sino con objetos, representados 
gráficamente en la pantalla del ordenador me¬ 
diante «iconos», que son manejados con un ra¬ 
tón, y cuya imagen guarda relación con la 
operación que realiza. Así, en vez de tener que 
recordar una larga serie de comandos con una 
sintaxis a veces compleja, en el Macintosh só¬ 
lo se debe mirar la pantalla, elegir el ¡cono que 
represente la acción a realizar y seleccionar¬ 
lo con el ratón. El usuario se concentra en la 
tarea que está haciendo y no en los pasos que 
debe seguir para realizarla. Para borrar un 
fichero, basta señalarlo con la flecha (movien¬ 


do el ratón), pulsar el botón del ratón, y sin 
soltarlo trasladarlo al icono que representa la 
papelera. 

Al encender el equipo aparece en pantalla 
una boca de disco indicando que se debe in¬ 
troducir alguno. Después aparece dibujado un 
disco y un menú de opciones. Mediante el ra¬ 
tón podemos poner la flecha sobre una opción 
y aparece una ventana con una lista de ac¬ 
ciones posibles. Para seleccionar un disco se 
lleva la flecha encima de su ¡cono y se pulsa 
el botón del ratón, entonces se ilumina el ico¬ 
no del disco indicando que la acción ha sido 
comprendida y realizada. Moviendo la flecha 
al menú de opciones y seleccionando FILE 
apretando el botón sin soltarlo, aparecerá una 
lista de acciones relacionadas con el manejo 
de ficheros. Para elegir OPEN ponemos enci¬ 
ma la flecha y soltamos el botón del ratón, así 
aparece un directorio con los ficheros que con¬ 
tiene el disco, cada uno representado con un 
¡cono alusivo y su nombre debajo. Si seleccio¬ 
namos un fichero de texto, el Macintosh piensa 
que lo queremos editar y carga su procesa¬ 
dor de textos Mac Write y el fichero seleccio¬ 
nado. Apuntando a un fichero ejecutable se 
inicia la ejecución del mismo. 

El sistema operativo incluye todo el mate¬ 
rial necesario para desarrollar el software que 
permita utilizar todo el entorno gráfico, des¬ 
de el manejo de ventanas hasta un surtido jue¬ 
go de tipos (y tamaños) de letra. 


Tras las huellas 
de Mac 


Digital Research ha creado GEM un entor¬ 
no operativo que rodea a MS-DOS y sirve de 
interface con el usuario al estilo Macintosh, eli¬ 
minando la necesidad de teclear los coman¬ 
dos habituales del sistema, mediante el uso de 
ventanas e iconos. Tan similar es este entorno 
al del Macintosh, que GEM ha sido rediseña¬ 
do para evitar problemas legales con Apple 
Computer dueña del sistema del Macintosh. 

También existen versiones de GEM para los 
nuevos ordenadores ATARI ST y AMIGA, que 
nuevamente actúan como recubrimientos del 
verdadero sistema operativo. Hay que obser¬ 
var que si un programa no ha sido diseñado 
para trabajar con GEM, aunque pueda ser 
ejecutado desde éste, se comportará como 
siempre. 

El uso de iconos, ventanas y ratones se po¬ 
pularizó hace dos años gracias a la difusión 
del Macintosh, pero tienen más de diez años 
de vida, y se remontan a los trabajos realiza¬ 
dos por la compañía RANK XEROX (a su vez 
inspirados en estudios teóricos) que los imple¬ 
mento por primera vez en su ordenador STAR, 
muy avanzado para su época. De aquí surge 
también el lenguaje de programación orien¬ 
tada al objeto SMALLTALK, que utiliza profu¬ 
samente ventanas, ¡conos y ratón. 
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SERIE CPC 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A - 64K RAM 
ampliables - 32K ROM ampliables 

• TECLADO • Teclado profesional con 
74 teclas en 3 bloques - Hasta 32 teclas 
programables - Teclado redefinible 

• PANTALLA • Monitor RGB verde (12") 
o color (14”) 


■% 

Normal 

Alta Res. 

Multicolor 

Col x líneas 

40X25 

80X25 

20X25 

Colores 

4 de 27 

2 de 27 

16 de 27 

Puntos 

320 X 200 

640 X 200 

160x2 


- Se pueden definir hasta 8 ventanas de 
texto y 1 de gráficos • SONIDO 

• 3 canales de 8 octavas moduladas 
independientemente - Altavoz interno 
regulable - Salida estéreo • BASIC 

• Locomotive BASIC ampliado en ROM - 
Incluye los comandos AFTER y EVERY 
para control de interrupciones 


AMSTRAD CPC 464 


CASSETTE • Cassette incorporada con 
velocidad de grabación (1 ó 2 Kbaudios) 
controlada desde Basic • CONECTORES 

• Bus PCB multiuso, Unidad de Disco 
exterior, paralelo Centronics, salida 
estéreo, joysück, lápiz óptico, etc. 

• SUMINISTRO • Ordenador con monitor 
verde o color - 8 cassettes con 
programas - Libro "Guia de Referencia 
BASIC para el programador" - Manual en 
castellano - Garantía Oficial AMSTRAD 
ESPAÑA. 


TODO POR 

59.900 Pts. (monitor verde) 


90.900 Pts. (monitor ct 


AMSTRAD CPC 6128 


UNIDAD DE DISCO • Unidad 
incorporada para disco de 3” con 180K 
por cara • SISTEMAS OPERATIVOS 

• AMSDOS, CP M 2.2, CP M Plus (3.0) 

• CONECTORES • Bus PCB multiuso, 
paralelo Centronics, cassette exterior 0 
2. a Unidad de Disco, salida estéreo, 
joysticks, lápiz óptico, etc. 

• SUMINISTRO • Ordenador con monitor 
verde o color - Disco con CP M 2.2 y 
lenguaje DR, LOGO - Disco con CP M 
Plus y utilidades - disco con 6 programas 
de obsequio - Manual en castellano - 
Garantía Oficial AMSTRAD ESPAÑA. 


TODO POR 1 84.900 Pts. (monitor verde) 
119.900Pts. ( monitor color) - 




























PCW - 8256 AMSTRAD CPC - 6128 





AMSTRAD//^ 

Centronics • SUMINISTRO • Ordenador j 

* * 1 completo con teclado, pantalla, Unidad 

Ha Pllo ImnyAOAr'i _ Hioaao r>r\r\ r\ 1 


UNIDAD CENTRAL. MEMORIAS 

• Microprocesador Z80A - 256K RAM de 
las que 112K se utilizan como disco RAM 

• TECLADO • Teclado profesional en 
castellano (ñ, acento...) de 82 teclas 

• PANTALLA • Monitor verde de alta 
resolución - 90 columnas x 32 líneas de 
texto • UNIDAD DE DISCO • Disco de 
3" y 173K por cara - Opcionalmente, 

2. a Unidad de Disco de 1 M¿>yte integrable 

• SISTEMA OPERATIVO • CP M Plus 
de Digital Research • IMPRESORA • 

Alta calidad (NLQ) a 20 c.p.s. - Calidad 
estándar a 90 c.p.s. - Papel continuo u 
hojas sueltas - Alineación automática del 
papel - Caracteres normales, 
comprimidos, expandidos, control del 
paso de letra (normal, cursiva, negrita, 
subíndices, superíndices, subrayado, etc). 

• OPCIONES • Kit de Ampliación a 
512K RAM y 2. a Unidad de Disco - 
Interface Serie RS 232C y paralelo 


de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, CP M 
Plus, Mallard, BASIC, DR.LOGO y diversas 
utilidades - Manuales en castellano - 
Garantía Oficial AMSTRAD ESPAÑA. 


TODO POR 129.900 Pts. 


Existe también la versión PCW 8512 con 
512K RAM y la 2. a U nidad de Disco de 
1 Mbyte mcorDorada l^iJBlit'JUMilJfll 
* El PCW 8256 puede utilizarse como 
terminal y en comunicaciones. 

El I.V.A. no está incluido en los precios. 

NOTA: Es muy importante verificar la garantía del 
aparato ya que sólo AMSTRAD ESPAÑA puede 
garantizarle la ordenada reparación y sobre todo 
materiales de repuesto oficiales (Monitor, 
ordenador, cassette o unidades de discos). 

ESFANA 


Los mas presagiosos paquetes de 

Software Profesional, en formato 
AMSTRAD. a “precios AMSTRAD'’ 


Avda. del Mediterráneo, 9. Tels. 433 45 48 ■ 433 48 76. 
28C0Z MADRID 

Delegación Cataluña: Tarragona, 110 ■ Tel. 325 10 58. 
08015 BARCELONA 










Gnomos 


¿Conoces a David el gnomo?, sí, pues sus 
simpáticos amigos han venido a jugar con 
nosotros con su arbolito de frutas. Se debe 
recoger todas entre ellos y tú, pero ten cuidado 
de no recoger la última, porque si no habrás 
perdido. Demuéstrales que eres más hábil que 

ellos. 


ste programa cons¬ 
tituye un juego inteligente, durante 
el cual debemos enfrentarnos a un 
duendecillo que controla el ordena¬ 
dor, o bien a un jugador humano. 

Se trata de una versión modifica¬ 
da del juego del Nim, en pantalla 
aparecerán una serie de vegetales 
comestibles, algunos crecen sobre un 
árbol, y otros del suelo. 

Cada jugador deberá elegir por 
turno qué tipo de vegetal desea eli¬ 
minar de entre los cinco posibles 
(manzanas, peras, hojas, cerezas, 
setas), así como la cantidad a supri¬ 
mir. 

En cada turno sólo está permitido 
eliminar un tipo, es decir, podemos 
suprimir si queremos 4 hojas o 3 
manzanas, o 2 peras, pero nunca 2 
hojas y 3 manzanas en la misma ju¬ 
gada, por ejemplo. 

El jugador que elimine el último de 
los vegetales que quede en la pan¬ 
talla, pierde automáticamente la 
partida. 

Ejemplo: Si en pantalla hay 3 ce¬ 
rezas y ningún vegetal más, yo eli¬ 
minaría 2 cerezas, mi contrincante se 
vería obligado a eliminar la última 
que quedara y yo ganaría la parti¬ 
da. 

Ejemplo: Si en pantalla quedan 3 
manzanas y una seta, yo suprimiría 


las 3 manzanas, mi contrincante se 
encontraría con que sólo puede eli¬ 
minar la seta que resta y yo ganaría 
la partida. 

Instrucciones de manejo 

Al principio se presentan dos op¬ 
ciones. 

A Un jugador (es decir humano 
contra máquina). 

B Dos jugadores (dos humanos se 
enfrentan entre sí). 

Si escogemos la opción A, debe¬ 
mos decidir contra qué duende de los 
cinco que se nos presentan nos en¬ 
frentaremos. Para ello basta pulsar 
el dígito correspondiente. 

Mientras más alto sea el número 
del duende escogido mayor será la 
dificultad. 

Una vez impresa la pantalla co¬ 
rrespondiente debemos proceder 
así. 

— Seleccionar uno de los vegeta¬ 
les mediante la tecla espacio. 

— Teclear una cifra, ei ordenador 
entenderá que corresponde a la can¬ 
tidad de unidades a eliminar del ve¬ 
getal seleccionado. 

— Pulsar intro para ejecutar la ju¬ 
gada. 


Estructura 
del programa 


Rutina 1. Líneas 10-640 

Asigna colores a plumas y borde. 
Define ventanas 1 y 2. Dimensiona 
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variables. Define caracteres gráficos. 
Asigna valores a variables de cade¬ 
na. Asigna valores a variables me¬ 
diante sentencias data. 


Rutina 2. Líneas 650-1080 

Presentación del juego. Impresión 
del menú. Se establece número de ju¬ 
gadores. Nombre de jugadores. Im¬ 
presión. Se define grado de dificul¬ 
tad. 


Rutina 3. Líneas 1090-1290. 

El ordenador decide al azar quién 
comienza. Realización del dibujo de 
árbol y gnomo. Paso a subrutina n.° 
4 para dibujar setas. 


Rutina 4. Líneas 1300-1410 

Imprime mediante un bucle los ve¬ 
getales que cuelgan del árbol. Pul¬ 
sando una tecla paso a rutina n.° 5. 


Rutina 5. Líneas 1420-1550 

Bucle principal del juego. Imprime 
en pantalla nombre del jugador en 
turno. Si le toca turno a humano pa¬ 
sa a subrutina n.° 1. Si es turno de 
ordenador paso a subrutina n.° 2. Si 
acaba la partida remite a rutina 2 
tras imprimir nombre del ganador. 

Subrutina 1. Líneas 1560-1780 

Establece la jugada de humano. 
Imprime en ventana gráfica el vege¬ 
tal elegido y la cantidad a suprimir 
del mismo. Si la jugada es factible, 
pasa a subrutina 3. Vuelta al bucle 
principal. 


Subrutina 2. Líneas 1790-2110 

El ordenador establece la jugada 
a realizar. Una vez elegida la juga¬ 
da pasa a subrutina 3. Vuelta a bu¬ 
cle principal. 

Subrutina 3. Líneas 2120-2340 

Realiza las jugadas de las subruti¬ 
nas 1 ó 2. Sigue las instrucciones de 
las subrutinas citadas. Explosionan¬ 
do y borrando los vegetales escogi¬ 
dos. 


Subrutina 4. Líneas 2350-2430 

Realiza el dibujo de una seta. De¬ 
pendiendo del valor de la variable 
CO, retorna a rutina 3 o A subruti¬ 
na 1. 


Lista de variables 
principales 


PRO: Número de jugadores huma¬ 
nos (1 ó 2). 

COM: Grado de complejidad del 
juego (1 a 5). 

JA: Su valor indica a quién corres¬ 
ponde el turno de juego (1 a 2). 

ME: Durante el desarrollo de la 
partida indica qué tipo de vegetal 
debe suprimirse en la pantalla, tan¬ 
to si juega humano como máquina. 



D: Especifica el número de unida¬ 
des a explosionar y retirar de pan¬ 
talla del vegetal especificado por la 
variable ME. 

NU (n): Son 22 variables que indi¬ 
can el tipo de fruta que existe en ca¬ 
da posición del árbol al comenzar la 
partida. 

CU (n): Son 5 variables que indican 
la cantidad total de cada vegetal que 
existe en pantalla en ese momento. 

Cu (1)... Cantidad de hojas. 

Cu (2)... Cantidad de peras. 

Cu (3)... Cantidad de manzanas. 

Cu (4)... Cantidad de cerezas. 

Cu (5)... Cantidad de setas. 


Otras variables 


ti: Indica la tinta a usar para impri¬ 
mir los caracteres gráficos, 
c: Especifica tamaño de la seta. 
CLAVE: N os informa de si el orde¬ 
nador encontró ya una jugada co¬ 
rrecta, o debe seguirla buscando. 
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O y Hs Se utilizan para establecer 
un bucle que es el encargado de bo¬ 
rrar las setas. 

e (n): Similar a cu (n), pero la utili¬ 
za la máquina cuando se juega con¬ 
tra ella para calcular la jugada co¬ 
rrecta. 

JU$ (n): Contienen nombre juga¬ 
dores humanos. 

GNO$ (N): Contienen los nombres 
de los cinco gnomos. 

Bl $, p$ (n) y p (n): La primera es 



similar A e (n) pero en binario, p$ (n) 
son los sucesivos dígitos de BI$ (n), 
p (n) = VAL p$ (n). 

SUM: Al macena el valor de e 
(lí+e (2) + e (3) + e (4) + e (5). 

b$ (n): Esta variable almacena el 
valor de las letras de JU$ (n). 

Variables relacionadas 
con los gráficos 

Pe$ Ra$ Man$ Za$ Ce$ Re$ Ho$ 
Ja$ Ex$ plo$. Contienen los carac¬ 
teres definidos para imprimir pera, 
manzana, hoja, cereza y hacer el 
efecto de explosión respectivamente. 

Ar (n) y Bol (n). Almacenan las 
coordenadas de los 227 puntos que 
se utilizan para imprimir el árbol. 

Se (n), Ta (n), Gno (n) y Mo (n) son 
similares a las anteriores pero sirven 
para dibujar la seta y el gnomo res¬ 
pectivamente. 

Si (n) Tío (n). Especifican la fila y 
columna donde se deben imprimir los 
22 vegetales que cuelgan del árbol. 



10 SYMBOL AFTER 200 

20 INK 0.15: INK 1,3: INK 2,23: INK 
3,9: F'AF'ER 2: CLS: BORDER 23 
30 WINDOW #2,1,6,3,6 
40 WINDOW #1,1,21,1,1 
50 DIM ar<227>: DIM bol(227) 

60 DIM se(23): DIM ta<23> 

70 DIM gno(54): DIM mo<54> 

BO DIM si(22): DIM tio<22) 

90 DIM hon(4): DIM nu(22> 

100 DIM cu(5):DIM ju*(2):DIM gno*<5 
1 

110 DIM b:*<5>: DIM p*<5>: DIM p<5> 

: DIM e<5>:DIM bS(ll) 

120 SYMBOL 200,1,1,3,3 ,7,7,7,15 
130 SYMBOL 201,0,0,192,192,224,224, 
224,240 

140 SYMBOL 202,31,63,127,127,127,12 
7,63,30 

150 SYMBOL 203,240,248,252,252,252, 

252.248.112 

160 SYMBOL 204,14,3,0,0,6,31,127,12 

7 

170 SYMBOL 205,28,56,176,64,112,248 
,252,254 

180 SYMBOL 206,255,255,255,255,127, 
127,63,14 

190 SYMBOL 207,255,255,255,255,255, 

254.252.112 

200 SYMBOL 208,2,2,2,3,4,4,8,16 
210 SYMBOL 209,0,0,0,0,128,64,32,16 
220 SYMBOL 210,16,56,124,254,254,25 
4,124,56 

230 SYMBOL 211,1,63,127,255,63,63,1 

27.255 

240 SYMBOL 212,128,252,254,255,252, 

252.254.255 

250 SYMBOL 213,255,255,7,7,7,3,1,1 
260 SYMBOL 214,255,255,224,224,224, 
192,128,128 

270 SYMBOL 215,2,130,64,12,156,73,1 
,28 

280 SYMBOL 216,8,16,33,0,132,144,15 
2, 88 

290 SYMBOL 217,12,26,0,32,2,128,8,0 
300 SYMBOL 218,16,0,228,98,1,64,64, 

O 

310 pe*=CHR*(200)+CHR* <201): ra$=CH 
R*(202)+CHR* <203) 

320 man*=CHR*(204)+CHR*(205): za*=C 
HR*(206)+CHR*(207) 

330 ce*=CHR*(208)+CHR*(209):r e*=CHR 
*(210)+CHR*(210) 

340 ho*=CHR* (211)+CHR*(212): ja*= 
CHR*(213)+CHR*(214) 

350 ex *=CHR* (215) -t-CHR* (216) 

360 p 1 o*=CHR* (217) +-CHR* <218) 

370 gno*(1)="SIMPLON"s gno*(2)="TONT 
ILLO" s gno* (3) = ,, LISTORRO M i gno* (4) = "M 
EMORION":gno*(5)="SABIONDO" 

380 FOR n= 1 TO 227 
390 READ ar(n),bol(n) 

400 NEXT n 

410 DATA 262,30,262,60,260,90,250,1 

10.241.96.250.110.220.110.210.105.1 

80.105.177.96.180.105.160.102.150.1 
00,130,95,120,100,110,100,100,115,8 
O,120,81,112,80,120,56,130,110,122, 
130,105,150,110,128,128,110,145,87, 

152.85.165.100.160 

420 DATA 130,140,140,130,170,118,20 

O,120,240,130,250,145,240,155 

430 DATA 200,165,175,180,177,160,17 

5.180.150.200.120.210.129.192.120.2 

10.95.230.70.225.70.230.65.224.70.2 

30.100.236.130.220.160 

440 DATA 200,190,180,220,174,240,17 
0,236,190,230,235,215,250,209,240, 2 
15,250,190,262,175,270,177,256,175, 

270.150.275.120.295.129.272.120.295 
,120,305,130,300,175,275,200,268,23 
5,250,235,280,240,290,225,325 

450 DATA 210,330,190,335,170,335,17 
7,320,170,335, 170,338,200,340,220, 
335,230,325,250,290,245,250,245, 220 
,250,210,250,180,255,170,270,150,28 
O,145,285,180,282,220,280,240,270,2 
60,272,280,290,325,285,340,280,360, 

270.370.257.352.270.370.285.360.295 
,330 


460 DATA 320,350,340,355,350,365,36 

5,360,369,352,365,360,340,345,315,3 
40 

470 DATA 300,320,290,300,280,270,29 

5.220.295.180.300.200.300.240.295.2 
50,300,270,310,290,330,305,350,310, 
375,305,350,300,337,299,337,288, 337 
,299,320,290,305,260,310,200,315,22 
ó,330,240,350,250,370,265,390,275,4 
00,2B0,415,300,420,320,430,340 

480 DATA 450,350,450,346,430,330,42 

5.300.400.270.430.280.440.280.460.2 
90,475,293,490,290,500,280,470,282, 
465,272,470,282,450,275,430,270,400 
,264,401,256,400,264,390,260,370,25 
0,340,230,330,215,325,190,330,170,3 
50,165,380,180,388,180,420,195 

490 DATA 440,205,460,218,480,230,49 
O,245,510,250,530,252,540,254,545,2 
50,530,245,510,245,490,230,492,208, 
490,230,470,210,465,192,470,210,450 
,200,420,185,400,170,390,160,365,15 
0,390,140,410,137,430,125 
500 DATA 455,128,480,125,510,128,54 
O,130,550,135,560,135,570,130,570,1 
25,555,128,540,120,530,118,529,112, 
530,118,500,120,470,110,465,96,470, 

110,450,113,430,113,401,115,401,R6, 
401,115,390,120,370,125,369,112,370 
,125,350,130,340,125,325,90,325,70, 
350,0 

510 FOR x=l TO 22 

520 READ si<x):READ tio(x) 

530 NEXT x 

540 DATA 33,19,29,20,25,20,27,19,23 
,19,11,20,15,20,5,19,11,16,8,14,4,1 

2,13,11,11,10,8,9,11,6,16,4,23,4,21 
,8,29,9,25,10,29,14,31,13 
550 FOR x=l TO 23 
560 READ se(x),ta(x) 

570 NEXT x 

580 DATA 3,10,2,10,10,0,-10,0,-5,0, 
- 5 . 2,-10,3,1,5,4,10,5,5,5,3,10,2,10 
,-2,5,-3,5,-5,4,-10,1,-5,-10,-3,-5, 
-2,-5,0,2,-10,3,-10,-20,0 
590 FOR n= 1 TO 54 
600 READ gno(n), mo(n) 

610 NEXT n 

620 DATA -12,-48,12,4,-12,-4,-2,O,O 
,-6,8,-4,6,2,-6,-2,-8,4,2,-6,4,-10, 
8,-4,-8,4,-4,10,-6,-14,4,-8,14,-2,- 
14,2,-2,-12,4,0,12,0,-12,0,4,-10,0, 
-8,-2,-6,10,0,0,24 

630 DATA 0,-24,10,0,-2,6,0,8,4,10,- 
12.0,12,0,4,0,-2,12,-14,-2,14,2,4,8 
,-6,14,-4,-10,-8,-4,8,4,4,10,2,6,-B 
,-4,-6,2,6,-2,8,4,O,6,-2,O,-12,4, 12 

,-4,-12,48 

640 hon <1)-136: hon(2)=168: hon(3) 

=200:hon (41=232 

650 ju*(11: ju*<2>="" 

660 FOR n=100 TO 500 STEP 100 
670 MOVE n, 200 
6B0 FOR X = 1 TO 54 
690 DRAWR gno<x),mo<x) 

700 NEXT x 

710 MOVER 0,-10:FILL 1:MOVER 0,-50: 
FILL O: MOVER 0,-20iFILL 3: MOVER O 
,-10: FILL 3 

720 F'LOT n-5, 150: DRAWR 2,0: PLOT n+ 
4.150: DRAWR 3,0 
730 NEXT n 

740 LOCATE 10,2:PRINT "MENU" 

750 LOCATE 10,4:PRINT "A....UN JUGA 
DOR" 

760 LOCATE 10,5:PRINT "B....DOS JUG 
ADORES": CLEAR INPUT 
770 a*=INKEYÍ: a*=UPF’ERI <a*> 

780 IF a*<>"A" AND a*<>"B" THEN GO 
TO 770 

790 IF a*="A" TFIEN pro=l: LOCATE 5, 
4:PRINT STRING*<2,143) 

BOO IF a*="B" THEN pro=2: LOCATE 5, 
5:PRINT STRING*<2,143) 

810 FOR n=1 TO pro 

820 FOR Z=1 TO 11: b*(z)=" ":NEXT z 
830 X = 1 

840 LOCATE 5,7:PRINT "NOMBRE JUGADO 
R "; n 
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850 LOCATE 5,9:PRINT STRING*(9,127) 
860 a*=INKEY*:IF a*="'' THEN GOTO 86 
O 

870 IF INKEY< 6>=0 THEN GOTO 940 
qqi) t c r Kjitcy / 794=0 ANB w> 1 THEH 
y.-l:b* <x + l )=" "í LOCATE x+4,9:PRINT 
CHR*(127) :GOTG 860 

890 IF INKEY<79)=0 THEN CLEAR INPUT 
:GOTO 860 

900 a*=UPPER*(a*): FOR Z= 1 TO 200: 
NEXT Z 

910 LOCATE x+4,9:PRINT a*:x=x+l:b*( 
x ) =a* 

920 IF x=10 THEN GOTO 940 
930 GOTO 860 

940 FOR x—1 TO 10: ju*(n ) =ju*<n)+b* 
(x):NEXT x 
950 NEXT n 

960 IF pro=l THEN GOTO 970 ELSE GO 
TO 1080 

970 LOCATE 1,2:PRINT JU*(1);" POR 
FAVOR ELIGE ": LOCATE 2,4:PRINT " 
EL NUMERO DE TU CONTRINCANTE" 


980 LOCATE 1,5: PRINT STRING*(38,12 
8 ) 

990 FOR n= 7 TO 9 STEP 2: LOCATE 1, 


n:PRINT STRING*(38,127): NEXT n 

1000 

LOCATE 

2,22: 

PRINT "1." 

;gno*(1 

) 

1010 

LOCATE 

9,24: 

PRINT "2.." 

;gno*(2 

) 

1020 

3) 

LOCATE 

15,22 

: PRINT "3. 

";gno*( 

1030 

LOCATE 

23,24 

•.PRINT "4." 

;gno*(4 

) 

1040 

LOCATE 

30,22 

:PRINT "5." 

;gno*(5 

) 

1050 

A*=INKEY* 



1060 

IF A*< 

>"1" AND A*< >"2" 

AND A*< 

>"3" 

AND A*< >"4" 

AND A*< >"5" 

THEN G 


OTO 1050 

1070 COM=VAL (A*) 

1080 CLS 

1090 GRAPHICS PEN O: MOVE 258,0: o= 
9 

1100 ja=INT(RND»2)+l 
1110 FOR n=l TO 227 
1120 DRAW ar(n),bol<n) 

1130 NEXT n 

1140 MOVE 300,0: FILL O 

1150 GRAPHICS PEN 1 

1160 FOR n= 1 TO 4 * 

1170 MOVE hon<n),1 

1180 c= (4+INT(RND*2))/10 

1190 GOSUB 2350 

1200 NEXT n 

1210 MOVE 526,370 

1220 FOR n=l TO 54 

1230 DRAWR gno(n),mo(n) 

1240 NEXT n 

1250 MOVER 0,-10: FILL 1 

1260 MOVER 0,-50: FILL O 

1270 MOVER 0,-20: FILL 3 

1280 MOVER 0,-10: FILL 3 

1290 PLOT 521,320: DRAWR 2,0: PLOT 

530,320: DRAWR 3,0 

1300 CLEAR INPUT: PRINT #1, "PULSA 
UNA TECLA": 

1310 FOR x=l TO 4: cu<x>=0:NEXT x: 


cu <5)~4 

1320 FOR x=l TO 22 
1330 SOUND 1,25,1,5 

1340 RANDOMIZE TIME: nu <x)= INT (R 
ND*4)+1 

1350 ON nu <x) GOTO 1360,1370,1380,1 
390 

1360 pri$=ho$:seg*=ja*:cu<1)-cu(1)+ 
1: ti=3: GOTO 1400 

1370 pri*=pe*:seg*=ra*:cu<2)=cu<2) + 
1: ti=3: GOTO 1400 

13B0 pri*=man*:seg*=za*:cu(3)=cu(3) 
+1: ti=1: GOTO 1400 

1390 pri*=ce*:seg*=re*:cu <4)=cu(4) + 
1: ti=l: GOTO 1400 

1400 PEN ti: LOCATE si (x),ti o<x): 
PRINT pri*: LOCATE si(x),( tio<x)+l 
): PRINT seg* 

1410 NEXT x:IF INKEY*<>"" THEN GOTO 
1420 ELSE GOTO 1310 


1420 IF cu <1)+cu(2)+cu(3)+cu(4)+cu( 
5X2 THEN GOTO 1480 

1430 IF ja=l AND pro=2 THEN PRINT # 
I, " TURNO DE ";ju*(2) 

1440 IF ja=l AND pro=l THEN PRINT 
#1," TURNO DE ";gno*(com): CLS #2 
1450 IF ja=2 THEN PRINT #1, " TURNO 
DE ";ju* <1) 

1460 FOR x=l TO 400: NEXT x 

1470 IF ja=2 OR pro=2 THEN GOTO 156 

O ELSE GOTO 1790 

1480 FOR x=l TO 1500: NEXT x: CLS 
1490 IF CU <1)+CU(2)+CU(3)+CU(4)+CU( 
5)=0 THEN JA=JA+1:IF JA=3 THEN JA=1 
1500 IF PR0=2 THEN PRINT "GANADOR.. 
* . ..."5 ju* (ja) 

1510 IF pro=l AND ja=l THEN PRINT " 
GANADOR.." JU*(1):GOTO 1540 
1520 IF PRO=1 AND ja=2 THEN PRINT " 
GANADOR.." gno*(com) 

1530 IF com>1 AND pro=l THEN LOCATE 
1,4:PRINT ju* <1);" TU PROXIMO CONT 
RINCANTE ":LOCATE 1,5: PRINT " DEBE 
SER ";gno*(com-1) 

1540 LOCATE 1,10: PRINT "PULSE S,SI 
DESEA JUGAR OTRA PARTIDA" 

1550 IF INKEY(60)=0 THEN CLS: GOTO 
650 ELSE GOTO 1550 

1560 me=l:D=0: IN=0:CLEAR INPUT: GO 
TO 1600 

1570 IF INKEY(47)=0 THEN d=0: me=me 
+1:GOTO 1600 

1580 IF INKEY(6)=0 AND d>0 THFN GOT 
O 1740 

1590 in*=INKEY*: IF in*="0" OR i 
"1" OR in*="2" OR in*="3" OR in < * e ~ 1, 4 
" OR in*="5" OR in*="6" OR in*s="7” 
OR in*="8" OR ir*^"9" THEN GOTO 170 
O ELSE GOTO 1 570 
1600 IF ~e*=6 THEN me=l 
1610 r'LS#2: ON me GOTO 1620,1640,16 
30,1650,1690 

1620 pri*=ho*:seg*=ja*: ti=3:GOTO 1 
660 

1630 pri*=man*: seg*=za*: ti=l: GO 
TO 1660 

1640 pri*=pe*:seg*=ra*: ti=3:GOTO 1 
660 

1650 pri*=ce*:seg*=re*: ti=l: GOTO 
1660 

1660 LOCATE #2,1,2:PEN #2, ti: PRI 
NT #2, pri* 

1670 LOCATE #2,1,3: PEN #2, ti: PR 
INT #2, seg* 

1680 FOR x= 1 TO 100: NEXT x: GOTO 
1570 

1690 MOVE 9,321: co=l:c=0.5: GOSUB 
2350: co=0: GOTO 1570 
1700 in=VAL (int): d=(d*10)+in 
1710 IF d> 99 THEN d=0: GOTO 1560 
1720 LOCATE #2,3,3:PEN #2,1: PRINT 
#2, d 

1730 FOR x=l TO 100: NEXT x: GOTO 1 
570 

1740 IF d>cu(me) THEN GOTO 1560 
1750 cu(me)=cu(me)-d 
1760 GOSUB 2120 

1770 IF ja=l THEN ja=2:G0T0 1420 
1780 IF ja=2 THEN ja=l:GOTO 1420 
1790 clave =0 
1800 FOR x= 1 TO 5 
1810 E(X)=CU(X) 

1820 NEXT x 

1830 IF cu(l)+cu(2)+cu(3)+cu(4)+cu( 
5)>(com*5)+1 THEN :FOR w=l TO 700:N 
EXT w: GOTO 1980 

1840 IF e(1)<2 AND e(2)<2 AND e(3)< 
2 AND e(4)<2 AND e(5)<2 THEN GOTO 1 
850 ELSE GOTO 1870 

1850 5um= e (1) +e (2) +e (3) +e (4)+e (5) + 
1 

1860 ON sum GOTO 2030, 1980,2030,1 

980,2030,1980 

1870 FOR x=l TO 5 

1880 bi* <x)= BIN*(e(x),8) 

1890 NEXT x 

1900 FOR n=l TO 8 

1910 FOR x=l TO 5 

1920 p*(x)= MID*(bi*(x),n,1) 

1930 p(x)= VAL (p*(x)) 



1940 NEXT x 

1950 sum=p < 1) +p (2) +p (3) +p.(4) +p (5) 
1960 IF sum=l OR sum=3 OR sum=5 THE 
N GOTO 2030 
1970 NEXT n 

1980 IF elave=1 THEN GOTO 2090 

1990 me= INT (RND*5)+1 

2000 IF cu(me)=0 THEN GOTO 1990 

2010 d= INT (RND*cu(me))+1 

2020 GOTO 2100 

2030 clave =1 

2040 FOR x=l TO 5: e(x)=cu<x):NEXT 

x 

2050 me=INT (RND*5>+1 

2060 IF cu(me)=0 THEN GOTO 2050 

2070 d= INT (RNDtcu(me))+1 

2080 e(me)=e(me)-d : GOTO 1840 

2090 GOTO 2100 

2100 cu(me)=cu(me)-d 

2110 GOSUB 2120: ja=2: GOTO 1420 

2120 IF me=5 THEN GOTO 2280 

2130 FOR X=1 TO 22 

2140 IC D=0 THEN RETURN 

2150 IF nu(x)=me THEN GOTO 2170 

2160 NEXT x: GOTO 2270 

2170 d-d-1: nu(x)=0 

2180 IF me>3 THEN ti=l 

2190 IF me<3 THEN ti=3 

2200 PEN ti 

2210 LOCATE si(x),tio(x):PRINT ex* 
2220 LOCATE si (x),ti o(x)+1:PRINT pl 

o* 

2230 ENV 1,1,14,1,7,-2,4:SOUND 1,0, 
-1,0,1,0,1: FOR n=l TO 200: NEXT n 

2240 LÓCATE si (x),ti o(x):PRINT " " 

2250 LOCATE si(x), tio (x)+li PRINT 

2260 GOTO 2160 
2270 RETURN 

2280 FOR H=o TO 15-(cu(me)*2) STEP 
2 

2290 LOCATE H,24: PRINT ex* 

2300 LOCATE H,25: PRINT pío* 

2310 ENV 1,1,14,1,7,-2,4:SOUND 1,0, 
-1,0,1,0,1: FOR n=l TO 200: NEXT n 

2320 LOCATE h,24: PRINT " " 

2330 LOCATE h,25: PRINT " " 

2340 NEXT H:o=17-(cu(me)*2)* RETURN 
2350 FOR X = 1 TO ,23 
2360 DRAWR se<x)te,ta<x>te 
2370 NEXT x 

2380 IF co=l THEN RETURN 
2390 MOVE hon(n)+(5*c),l+(40*c): D 
RAWR 5*c,5*c:DRAWR 5*c,-5*c: DRAWR 
-5*c,-5*c: DRAWR -5*c,5*c 
2400 MOVE hon(n)-<5#c),1+(30te): 
DRAWR 5*c,5*c:DRAWR 5*c,-5*c: DRAWR 
-5*c,-5*c: DRAWR -5*c,5*c 
2410 MOVE hon(n),l+(40*c): FILL 1 
2420 MOVE hon (n) +3,3: FILL O 
2430 RETURN 



IRAD lo hoce por ti. Todos los listados que incluyan 
este logotipo se encuentran o tu disposición en un eos■ 
sette mensual, solicítanoslo. 
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La más moderna base de datos 
DELTA, superándose a sí misma, 
“DELTA +", desarrollada para 
CP/M por COMPSOFT con todo 
en español. 

Diseña sus propios ficheros; des¬ 
de un simple fichero de nom¬ 
bres y direcciones hasta su pro¬ 
pio sistema contable. El formato 
standar DIF permite intercam¬ 
biar datos en DEL TA, desde las 
hojas de cálculo CRACKER II, 
etc... y viceversa. Intercambio de 
datos con la mayoría de los tra¬ 
tamientos de texto como NEW- 
WORD para MAILING. 

Incluye un sencillo y funcional 
sistema de impresión de etique¬ 
tas con: hasta 5 columnas de eti¬ 
quetas, 65 caracteres por etique¬ 
tas, 20 líneas con 3 campos cada 
una. 

• PROGRAMABLE Y RELACIO- 
NAL. 

• FICHEROS INDEXADOS. 

• HASTA 90 CAMPOS ó 2.000 
CARACTERES. 

• MULTIPLES SISTEMAS DE BUS¬ 
QUEDA, 8 CLAVES. 

• FICHEROS DE HASTA 8 Mb. 

• 8 GRUPOS DE TRANSACCION 
POR REGISTRO. 


BASE 

DE DATOS 


Programa de tratamiento de tex¬ 
tos mejorando todo lo anterior. 
Manual y programa en español, 
que le enseñarán con facilidad y 
rapidez lo más avanzado en pro¬ 
cesadores de textos. Compatibi¬ 
lidad funcional con WORDSTAR 
incluyendo muchas capacidades 
adicionales. 

Tiene un potente MAIL-MERGE 
con opción de selección de des¬ 
tinatarios por criterios base de 
datos, creación de documentos, 
impresión de etiquetas. Utiliza 
todo el espacio de disco. Ensam¬ 
blaje de textos, sustitución, etc., 
de la forma más fácil: autohace 
copias de seguridad. ¡NUNCA 
PERDERA UN TEXTO! 

• Ñ, ACENTOS, DIERESIS ETC... 

• PRESENTACION EXACTA EN PAN¬ 
TALLA DEL FUTURO DOCU¬ 
MENTO IMPRESO. 

• INTERCAMBIOS DE FICHEROS 
CON CRACKER. 

• VARIABLES SUSTITUIBLES EN 
IMPRESORA. 

• POTENTE CALCULADORA. 

• COMPROBADOR ORTOGRA¬ 
FICO Y GRAN DICCIONARIO 
(45.000 TERMINOS AMPLIA- 
BLES). 

• POSIBILIDAD DE LECTURA DE 
FICHEROS DE DELTA, CARD 
BOX, SUPERCALC, DBASE II, 
ETC... 


TRATAMIENTO 
DE TEXTOS 


El CRACK de las hojas de cálcu¬ 
lo, la que deja detrás al resto. 
Funciones nunca vistas, forma¬ 
teo de fechas, salvaguardia con¬ 
tinua sobre un fichero. Realiza 
automáticamente copias de se¬ 
guridad. Además de las tradicio¬ 
nales funciones, CRACKER II 
posee fundones lógicas, estadís¬ 
ticas y de alta matemática. Inter¬ 
cambia datos con NEWWORD, 
bases de datos y la mayoría de las 
hojas de cálculo. 

• CELDAS PROGRAMABLES. 

• FUNCIONES ESPECIALES: 
Fecha, días; desde y hasta la fe¬ 
cha de la semana, del año, lapso 
de tiempo, retraso, beep entra¬ 
da, saludo usuario. 

• SISTEMA DE AYUDA ON-LINE. 

• SUMA CONDICIONAL. 

• TOMAR DECISIONES EN LA 
HO/A. 

• 18 MODOS GRAFICOS DIS¬ 
TINTOS. 

• TRADICIONALES FUNCIONES 
MATEMATICAS Y AMPLIACION, 
FUNCIONES ESTADISTICAS Y 
LOGICAS. 

• GENERA GRAFICOS EN BASE 
A LOS DATOS. 


HOJA 

DE CALCULO 


17.850 pts. 


17.850 pts. 


17.850 pts. 
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NUCLEUS más que una estrella 
una constelación; tres ESTRELLAS 
en un SUPERPROGRAMA, la so¬ 
lución a cualquier aplicación por 
compleja que sea, NUCLEUS es 
GENERADOR DE PROGRAMAS, 
BASE DE DATOS Y GENERA¬ 
DOR DE INFORMES. 

Toda la información es multi-in- 
tercambiable y de libre acceso 
por cualquiera de los demás 
programas. Así los datos de la 
base los condicionamos y utili¬ 
zamos en el generador de pro¬ 
gramas y los imprimimos a tra vés 
del generador de informes. 

• GENERADOR DE PROGRAMAS 
EN MALLARD BASIC. 

• CREACION DE BASES DE DA¬ 
TOS RELACIONALES. 

• GENERADOR DE INFORMES. 

• DISEÑADOR DE FORMATOS. 

• DISEÑADOR DE PANTALLAS. 

• CODIGO FUENTE DE UBRE 
ACCESO Y LIBRE DE ERROR. 

• DISEÑA SU PROPIO SISTEMA. 

• MAILMERGE. 


La revolución del pensamiento, 
BRAINSTORM es un programa 
qué piensa con Vd. 

El compañero ideal para el em¬ 
presario, director o cualquier 
persona que tenga que planifi¬ 
carse o tomar decisiones. 
BRAINSTORM es la ayuda nece¬ 
saria para su organización. El 
programa que se ha standariza- 
do en Inglaterra, tan necesario, 
útil y popular como una base de 
datos o un tratamiento de textos. 

• ORGANIZA POR RANGOS. 

• ACCESO DESCENDENTE POR¬ 
MENORIZADO. 

• PLANIFICACION A NIVEL DIA. 

• DECISIONES A LARGO PLAZO. 

• REVISION DE PROBLEMAS. 

• SI MULTA NEIZA CION DE TA¬ 
REAS. 

• PROCESO TOP/DOWN. 


Piii... su ordenador le comunica: 
La revolución de las comunica¬ 
ciones, de la mano de OFITES 
INFORMATICA, llega a España. 
El nuevo mundo de las comuni¬ 
caciones digitales lo tiene a su 
disposición, las redes de transmi¬ 
sión electrónica digitalizada, con 
su PCW8256o PCW 8512 a través 
de un interface RS 232-C con 
otros ordenadores, redes de trans¬ 
misión de datos, etc..., Vd. podrá 
enviar o recibir ficheros de texto 
o de datos, ASCII, etc..., creados 
por NEWWORD y otros... 

• TRANSICIONES DIRECTAS EN 
RED. 

• COMPATIBILIDAD CON NEW¬ 
WORD. 

• POSIBILIDADES DE TRANSMI¬ 
SIONES VIA MODEM, RED 
TELEFONICA. 

• COMUNICACION INSTANTA¬ 
NEA. 


GENERADOR 
DE PROGRAMAS 


ORGANIZADOR 
DE IDEAS 


COMUNICACIONES 


26.780 pts 


17.850 pts. 


17.850 pts 


Avda. Isabel II. 16 - 8' J 
Tels. 455544 - 455533 
Telex 36698 
20011 SAN SEBASTIAN 


DE VENTA EN LOS MEfORES COMERCIOS DE INFORMATICA 

Si Vd. tiene alguna dificultad para obtener los programas, puede 
dirigirse a: 


CONDICIONES ESPECIALES PARA DISTRIBUIDORES 













Cinco Pulgadas 
un Cuarto para Amstrad 


Mucha es la espectación que tenía la llegada de 
las unidades de disco de 5" 1/4, para los 
ordenadores CPC 6128 y CPC 464. Una de las 
primeras en entrar en nuestro mercado ha sido la 
realizada por la casa inglesa Cumana, ya 
conocidas en este país por sus unidades para el 
Spectrum y para el QL. Una unidad de disco 
extraplana, bastante estética, como es de 
costumbre en esta casa, y bien acabada 
exteriormente. En una unidad de cinco pulgadas y 
cuatro de simple cara y simple densidad. 


¿Fn 


disco 
cone¬ 
xión pora el ordenador. No necesi¬ 
ta de ningún tipo de interface. El ca¬ 
ble viene provisto de dos conectares, 
uno en su extremo, y el otro en la 
parte central del mismo. Este último 
viene preparado para introducirlo en 
la salida del Bus de expansión, el 
otro conectar está preparado para 
en su día conectarle una tercera uni¬ 
dad de disco. 


m 


a unidad de 
rsta trovista de un cable de 


Empezamos a trabajar 


Una vez conectada, empezemos a 
trabajar con la unidad de disco. Lo 
primero que hacemos es comprobar 
si el sistema de nuestro ordenador le 
acepta, para lo cual mandamos el 
control de la misma a la unidad B 
(mediante la orden de AMSDOS IB). 
En el momento y después de efec¬ 
tuarse su puesta a punto nos remite 
el mensaje de READY. 

A la hora de empezar formatea¬ 
remos un disco de 5" 1/4 para em¬ 
pezar a trabajar. Aquí nos plantea¬ 
mos la primera incógnita, al intentar 
formatear los discos con mayor ca¬ 
pacidad. Intruducimos el CP/M y una 
vez dentro del sistema cargamos el 
programa Disckit3. Como todos sa¬ 
bemos el programa Disckit3, es el en¬ 
cargado de formatear discos vírge¬ 
nes, copiar programas para copias 
de seguridad y verificar los discos. Al 
cargar el sistema nos dimos cuenta 
de que aceptaba la segunda unidad 


de disco, al salir en el mensaje de 
presentación dos unidades conecta¬ 
das. Empezamos a formatear el dis¬ 
co pulsando la opción correspon¬ 
diente. En la pantalla nos irá refle¬ 
jando el número de pistas que está¬ 
bamos formateando, esperando que 
al llegar a treinta y nueve continua¬ 
se. Pero desgraciadamente no fue 
así, al llegar a la número 39 (pista 
cuarenta al contarse el cero como 
primera), se detuvo el formateo y nos 
indicó el mensaje de operación con¬ 
cluida. 

Seguidamente nos salimos del pro¬ 
grama y también del sistema opera¬ 
tivo mediante AMSDOS. A continua¬ 
ción para saber la capacidad que te¬ 
níamos en el nuevo disco efectuamos 
un catálogo del mismo para ver cuál 
era su capacidad realmente, el resul¬ 
tado fue el mismo que si de un disco 
de tres pulgadas se tratara. Tenía¬ 
mos un total de 179 kbytes libres; 
memoria libre en el disco. 

El siguiente paso a seguir es com¬ 
probar si funciona bien salvar y car¬ 
gar programas. Empezaremos por 
probar programas en Basic, luego 
programas salvados en ASCII, Basic 
Protegido y finalmente programas en 
código maquina (programas en bi¬ 
nario). 
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Grabar un programa 


Haremos un pequeño programa 
que contenga bucles, impresión en 
pantalla y algunas llamadas a má¬ 
quina. Una vez realizado seguimos 
los pasos normales para su almace¬ 
namiento en un disco. Primeramen¬ 
te direccionamos la unidad recepto¬ 
ra mediante IB. Seguidamente nos 
disponemos a salvarlo con la orden 
de Basic: 

SAVE «Nombre. Extensión» 

El almacenamiento se realiza nor¬ 
mal, y pasamos a comprobar que es¬ 
tá bien almacenado. Para ello rese- 
teamos el equipo y efectuamos un 
catálogo del disco B y posteriormen¬ 
te la carga del programa. Cuando se 
carga hacemos un listado y compro¬ 
bamos que lo ha realizado todo co¬ 
rrectamente. Sólo nos falta ejecutarlo 
por si acaso al cargarlo los punteros 
se han perdido u otro problema por 
el estilo. El resultado es satisfactorio, 
el programa se ha ejecutado perfec¬ 
tamente. Ahora probamos si puede 
trabajar con programas almacena¬ 
dos de tipo ASCII. Utilizamos el mis¬ 
mo programa pero salvado con AS¬ 
CII: 

SAVE «Nombre.Bas»,a 

El almacenamiento como era de 
esperar es un poco más lento que si 
de un programa en Basic se tratara. 
Comprobamos si se encuentra en di¬ 
rectorio y vemos que sí. La carga y 
ejecución posterior fue normal, con 
lo que aseguramos que puede car¬ 
gar y almacenar programas en el 
disco de 5" 1/4 como si fuera uno de 
tres pulgadas. 

Con un programa en Basic prote¬ 
gido el resultado fue exactamente 
igual que con los casos anteriores, 
todo se realizó y resultó de una for¬ 
ma normal. Sólo nos queda la cues¬ 
tión de probar con programas en có¬ 
digo máquina. 

Una forma fácil de comprobarlo es 
realizar una pantalla y salvarla al 
disco y posteriormente ejecutarla. 
Eso fue lo que hicimos y los resulta¬ 
dos fueron de un auténtico éxito. 

Para ver si podían introducirse fi¬ 
cheros, utilizamos un programa de 
contabilidad que pudieran estar los 
datos en la segunda unidad, y fun¬ 
cionó sin problemas. 

En definitiva, la gestión de la uni¬ 
dad de 5" 1/4 es idéntica a una se¬ 
gunda unidad de tres pulgadas. Se 
puede realizar todo tipo de almace¬ 
namiento en el disco y su posterior 





















carga a la memoria. Los comandos 
de AMSDOS referentes a borrar, ca¬ 
tálogo, etc. funcionan correctamen¬ 
te. 

Utilización del CP/M con la Uni¬ 
dad. 

Cuando probamos la unidad tra¬ 
bajando en CP/M 2.2 o CP/M 3.0 
(PLUS), lo primero que necesitába¬ 
mos era tener un par de discos de 
cinco pulgadas formateados en los 
respectivos sistemas. Para ello utili¬ 
zamos el programa Disckit2 o 
Disckit3, dependiendo del sistema 
deseado. También se puede realizar 
con el Disckit3, y a la hora de pedir 
la introducción del disco con sistema, 
introducir primeramente uno y luego 
el segundo sistema. 

Cuando hayamos realizado el 
«formateo» introduciremos en cada 
uno todo los programas y utilidades 
de cada sistema. 

Para introducir los programas po¬ 
demos utilizar bien el PIP.COM o el 
propio Disckit. 

Una vez que tengamos todos los 
programas y utilidades traspasados, 
empezaremos a trabajar con ellos. 
Empezaremos por utilizar el CP/M 
2 . 2 . 

Introducimos el programa 
ED.COM para comprobar si funcio¬ 
na el editor de textos. Lo cargamos 
y empezamos a trabajar con él. Uti¬ 
lizamos todos los comandos con to¬ 
da normalidad. A continuación me¬ 
temos el DDT.COM con un progra¬ 
ma de texto en pantalla. Cuando fui¬ 
mos a introducir el programa para 
depurar hay que decir que le costó 
un poco de trabajo cargarlo, tal vez 
por una mala grabación del mismo. 
Una vez cargado todo funcionó 
bien. 

Así continuamos con los progra¬ 
mas de más utilización y el resultado 
fue idéntico a los anteriores, todo iba 
correctamente. 

Con el CP/M Plus nos costó un po¬ 
co de trabajo introducirlo. 

A la tercera vez, conseguimos que 
nos aceptara la segunda unidad de 
disco. Esto se comprueba en el men¬ 
saje de presentación, en él nos indi¬ 
ca la TPA, las unidades conectadas, 
etc. 

Para ver el traslado de programas 
de una unidad a otra utilizamos el 
comando PIP. Con este modificamos 
algunos programas de un directorio 
a otro. 

Para probar alguna salida diferen¬ 
te de la consola o la unidad de dis¬ 
co, pensamos en mandar un fichero 
desde la segunda unidad a la impre¬ 
sora. 


Cargamos el programa PIP.COM 
y lo preparamos para mandar un fi¬ 
chero ASCII a la impresora. Si fun¬ 
ciona, podemos asegurar que está la 
unidad perfectamente adaptada a 
todas las salidas y entradas de una 
unidad de discos. 

El fichero a los pocos segundos fue 
impreso en la impresora, completan¬ 
do así la prueba de salida. 


Trabajando 
con AMSDOS 


Como todos sabemos el AMSDOS 
son los comandos que incorporan a 
nuestro Basic después del signo I. Va¬ 
mos a probar uno a uno todos los co¬ 
mandos para ver cómo se comporta 
la unidad de disco. 


IA; IB 


Con este comando nos movemos 
de una unidad a otra. Al introducir¬ 
lo el control se nos marcha de una 
a otra unidad, funciona. 

ICPM 

Esta orden la hemos probado an¬ 
tes a la hora de introducir el CP/M, 
y comprobamos que éste se carga 
desde la unidad A, pudiéndose más 
tarde trabajar con la B. 

I DI R 

Esta orden nos mostró todo el di¬ 
rectorio del disco, situándonos antes 
en la segunda unidad, a la vez que 
probamos sus parámetros. 

IDISC; IDISC.IN; IDISC.OUT 

La primera orden equivale a las 
dos siguientes, y nos dice que todas 
las operaciones de entrada y salida 
son con el disco. 

IDRIVE 

Nos cambia la unidad de disco im¬ 
plícita. Es una forma de saber si te¬ 
nemos bien conectada la segunda 
unidad, de otra forma esta orden fa¬ 
llaría por no encontrar la segunda 
unidad. 


IERA 

Pudimos comprobar que borra to¬ 
dos los ficheros de la segunda unidad 
como de la primera. También se pro- 
vó con sus parámetros y trabajó nor¬ 
malmente. 



IREN 

Renombramos algunos de los pro¬ 
gramas para utilizar diferentes pará¬ 
metros con el IERA y IDIR. 

IUSER 

Escribimos algunos usuarios en el 
disco, e introducimos algunos pro¬ 
gramas en los mismos. Luego pudi¬ 
mos acceder a ellos colocándonos 
previamente en el usuario conve¬ 
niente. 

Problemas encontrados. 

El primero de ellos es la falta de 
manual. Aunque no sea imprescindi¬ 
ble para su instalación, sí es conve¬ 
niente para su utilización y mayor 
aprovechamiento. 

Cuando buscamos un sitio para su 
colocación, pensamos en situarlo en 
la parte derecha del ordenador, pe¬ 
ro debido al corto cable de expan¬ 
sión la colocación de la unidad dis¬ 
co es un poco dificultosa, ya que al 
ser el conector central el que se in¬ 
troduce en el bus de expansión, obli¬ 
ga a colocar dicha unidad perpen¬ 
dicular a la consola del ordenador y 
detrás de ésta. Si por casualidad te¬ 
nemos un monitor a color, el proble¬ 
ma se acentúa aún más debido al 
mayor tamaño de éste, que debe ser 
desplazado hacia un lateral, prefe¬ 
rentemente a la izquierda con la con¬ 
siguiente incomodidad para el cable 
de la impresora en caso de tenerla. 
El resto del cable de conexión de la 
unidad de discos queda temporal¬ 
mente obsoleto, siendo incómodo 
además de poco estético al quedar¬ 
se suelto por la mesa. El conjunto es¬ 
tético que nos supone el utilizar esta 
unidad es pues bastante lamentable. 

Otro inconveniente es el ruido que 
produce la unidad de disco al traba¬ 
jar. Este ruido, se asemeja al que 
produciría una unidad de disco nor¬ 
mal si tuviera suelta la cabeza o no 
tuviera engrasado convenientemente 
el motor. 

Además la velocidad a la que tra¬ 
baja esta unidad es inferior a la que 
trabaja la unidad de disco de tres 
pulgadas. 


M. AMSTRAD ESPECIAL 35 











-:S5- 




Distribuido por 


DISTRIBUCION 

(Cataluña y Baleares) 
c/ Tarragona. 110-112. 

Tel (93) 325 10 58 
02015 BARCELONA 
Telex 93133 ACEEE 


Producido en exclusiva para España por: 


P ° Castellana. 179. 1 
Tel (91) 442 54 44 
28001 MADRID 


DISTRIBUCION. S.A. 


(C) CP SOFTWARE 


■ 






































ler PROGRAMA ROM EN ESPAÑA 

ACCESO INSTANTANEO, NO OCUPA MEMORIA RAM. 


Se trata de una implementación del popular 
FORTH-79, ampliada con múltiples comandos 
gráficos y de sonido. Su exclusivo tratamiento 
de sprites y la autoejecución de los ficheros 
generados en ausencia del compilador lo 
convierten en una gran herramienta de trabajo, 
con una velocidad de ejecución comparable a la 
del código máquina. 

-* r.Áfil/ 66*/ 6128 

Sil- 3.800 ♦<*» 


DISTRIBUCION 

Actividades Comerciales y Electrónicas, S.A. 
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Los 128K RAM del CPC 6128 permiten la incorporación de 
un buffer de impresora, así como el almacenamiento de 
los ficheros fuente, agilizando así el proceso de 
ensamblado y linkado. — 
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Y NO SE LIMITE A LEER ESTE ANUNCIO 

INFORMESE 


■■■■■■■■■■■i 

Conozca HEXAM, un sistema completo de 
desarrollo, compuesto de Editor, Ensamblador, 
Linkador y Monitor. Su facilidad de manejo 
(incorporación de Soft-Keys) y agilidad 
operativa lo convierten sin duda en el más 
potente del mercado. 



















































































MICROCOMPUTADORAS 
DICCIONARIO 
DE TERMINOS 


la hora de saber lo 
que significan muchos términos en informáti¬ 
ca, nos encontramos con muchos problemas, 
ya que la traducción literal que encontramos 
en cualquier diccionario, no se asemeja en na¬ 
da a lo que esperábamos. Para esto nos es ne¬ 
cesario un diccionario especializado, como el 
que nos presenta Mac Graw-Hill. 



Un diccionario que nos aportará informa¬ 
ción sobre lo que es un byte, bit, nibble y to¬ 
do tipo de palabras. Además podremos bus¬ 
car todo tipo de términos técnicos como que 
es una memoria de burbuja, un interface de 
entrada salida, una biblioteca de programas, 
etc. 

Es un diccionario que se extiende lo suficien¬ 
te en todas sus explicaciones, que nos da res¬ 
puesta a cualquier tipo de información que ne¬ 
cesitemos sobre microcomputadoras, ya sean 
cuestiones electrónicas, informáticas, físicas, 
o históricas, fechas, datos sobre personajes, 
etc. 

Todos los términos se tratan alfabéticamente 
como si de una sola palabra se tratase. 

Utiliza un sistema de referencias cruzadas 
para ayudar a buscar términos que pudieran 
localizarse en varios lugares del diccionario. 

La cabecera de cada página contiene la pri¬ 
mera y última palabra que contiene. 


El único inconveniente es que las referencias 
deberemos hacerlas en inglés, sí en inglés, 
aunque posteriormente nos aparezca la tra¬ 
ducción y la explicación en nuestro idioma, así 
que si desconocemos la traducción al inglés de 
lo que deseamos buscar no será una tarea fácil. 


POGRAMACION 
AVANZADA DE 
AMSTRAD 


U 


_'n libro basado en el 

CPC464, al que en su prólogo compara con 
un iceberg, por la parte que permanece es¬ 
condida, el libro en sí es uno más de los edi¬ 
tados para este ordenador, pero el tema tra¬ 
tado le hace diferente. El objetivo principal es 
mostrarnos cómo manejar los periféricos con 
el Amstrad. 

El libro deja bien dicho en su prólogo, que 
hay que poseer «literatura» sobre el Z-80, ya 
que se hacen continuas referencias a subruti¬ 
nas de máquina para este procesador. 

El libro se divide en tres partes: 

La primera está dedicada a las entradas, 
empezando a hablarnos del sistema solapa¬ 
do de memoria someramente como puede ma¬ 
nejar la Z-80 64 K de RAM y 32 K de ROM. 




A continuación empieza a contarnos cosas so¬ 
bre la estructura interna de la máquina. Co¬ 
mo funciona su sistema de memoria, hablan¬ 
do de Jos periféricos internos, controlador de 
teclado, los diversos dispositivos de visualiza- 
ción, el controlador de sonido, etc. Suminis¬ 
trando un completo mapa de las direcciones 
de entrada/salida. 

Nos muestra también cómo trabaja el cas¬ 
sette, con una completa descripción del blo¬ 
que de cabecera del mismo, también nos ha¬ 
bla sobre el teclado, nos cuenta para qué sir¬ 
ven las distintas direcciones del área RST, con¬ 
cluye el capítulo con una reducida guía de lla¬ 
madas a las subrutinas del firmware. 


El segundo capítulo está dedicado al inter¬ 
faz, hablando muy escasamente del puerto de 
expansión, tan sólo tres páginas. 

Y en el tercer capítulo trata con gran exten¬ 
sión el tema de las salidas, explicando cómo 
construir una expansión de la tarjeta madre, 
contando cosas sobre el interfaz paralelo, có¬ 
mo crear un punto de impresora alternativo, 
el interfaz serie, y finaliza hablando sobre las 
ROM auxiliares, que son, como tipos, forma¬ 
to y aplicaciones. 

Al final del libro encontramos un programa 
que nos permitirá visualizar o imprimir el con¬ 
tenido de la RAM y de la ROM. 



; 


En definitiva un libro que es muy aconseja¬ 
ble para el programa avanzado de código 
máquina. 






INTRODUCCION 
A LA 

PROGRAMACION 

SISTEMATICA 



Eli libro se sitúa en los 
comienzos del Pascal, aunque en el libro se le 
menciona como una extensión del ALGOL-60. 
El título hace referencia principalmente a los 
seis primeros capítulos, esbozando el funcio¬ 
namiento de una computadora y con temas 
que ayudan a sistematizar y verificar el tra¬ 
bajo del neófito. 


> 
















Su lectura proporciona una visión clara de 
la descripción de identificadores. Todos los 
conceptos y sentencias están muy bien expli¬ 
cados y se hacen consideraciones sobre el ám¬ 
bito de validez de los mismos. 

Se echa de menos una más clara separación 
entre las partes declarativa y ejecutable. La 
parte dedicada a ENTRADA-SALIDA es muy 
superficial debido a que varía mucho de un 
compilador a otro. 


A partir del capítulo 7 se estudian los méto¬ 
dos recursivos e iterativos; se muestra la po¬ 
tencia de los tipos, el almacenamiento en fi¬ 
cheros secuenciales, manejo de punteros, de¬ 
claraciones de procedimientos y funciones, 
etc., que constituyen toda una demostración 
de la potencia del lenguaje. 

Cabe resaltar la separación y explicación en 
los tipos de sustitución y asignaciones gene¬ 
rales. El manejo de las mismas obliga a cono¬ 
cer muy bien las prestaciones de nuestro com¬ 
pilador. Sin embargo, el libro no responde a 
lo que es un manual de compilador, pero pue¬ 
de ayudar a simplificar el manejo de un com¬ 
pilador determinado. 


PROGRAMACION 
EN C: 

INTRODUCCION 
Y CONCEPTOS 
AVANZADOS 




^Zomo indica su título, 
es un libro muy completo. Parte de la base que 
el lector apenas tiene conocimientos de pro¬ 
gramación. Los autores son los creadores de 
la versión C para el IBM PC, el Lattice C. Esto 
no quiere decir que vaya dirigido hacia dichos 
usuarios; se extiende sobre su aplicación en 
sistemas operativos como el XENIX, UNIX, etc. 

Se empieza con una introducción al C, pro¬ 
cedencia, utilidad manejo y, ¡cómo no!, cua¬ 
lidades. Para regocijo del novicio se dedica un 
capítulo a la descripción de datos, variables, 
constantes y literales el forma en que son tra¬ 
tados por C. 

A continuación nos introducimos en una tí¬ 
pica iniciación de C: programas de impresión 
de cadenas, manejo de los distintos tipos de 
caracteres y en el uso de la palabra clave DE¬ 
FINE #. También se dedica información cau¬ 
telosa y amplia sobre operadores, entrada/sa¬ 
lida, condiciones, bucles, funciones, etc. 

Se hace especial hincapié a lo largo de un 
capítulo sobre la potencia del preprocesador 
y de la biblioteca disponible. 

Concluye con una serie de apéndices que se¬ 
rón de gran utilidad al programador a la ho¬ 
ra de trabajar con este lenguaje. 

Todas las explicaciones son muy claras y los 
autores tratan el texto con cordialidad, bro¬ 
meando ampliamente a lo largo del mismo. 


CP/M: GUIA DEL USUARIO 

Un libro provechoso 
para sacarle todo el partido al sistema ope¬ 
rativo CP/M. A través de sus páginas iremos 
viendo los diversos comandos y órdenes tran¬ 
sitorias que nos brinda CP/M, con una com¬ 
pleta explicación de las mismas. 




Se divide en ocho capítulos y otros tantos 
apéndices en los cuales se describe la ruta a 
seguir en los senderos CP/M. 


Los dos primeros capítulos tratan los ante¬ 
cedentes históricos del sistema así como sus ór¬ 
denes. Las opciones con la tecla CTRL también 
son expuestas. 

Poco a poco, nos vamos adentrando en el 
sistema operativo. Ordenes transitorias, ex¬ 
haustivas explicaciones del editor y ensambla¬ 
dor; eso sí, desde un punto de vista un tanto 
triunfalista... 

Avanzando más en el manejo del sistema 
operativo encontramos el método para enfren¬ 
tarnos a archivos transitorios y sistemas de mul- 
tiproceso. Lo adecuado para estar al corrien¬ 
te de las técnicas profesionales. 

Los últimos capítulos se dedican a la descrip¬ 
ción técnica del mismo para aquél que desea 
hacer sus pinitos bajo los auspicios del siste¬ 
ma. 

Completan la descripción una guía rápida, 
código ASCII, comparación entre distintas ver¬ 
siones, bibliografía, etc., todo ello incluido en 
los apéndices del mismo. 














Lisp o el Dominio de la 

IA 


Autor: R. Garrote 

(DE EQUAL (SEX1 SEX2) 

(COND ((ATOM SEX1) (EQ SEX1 5EX2)) 
((ATOM SEX2) NIL) 

((EQUAL (CAR SEX1) (CAR SEX2)) 

(EQUAL (CDR SEX1) (CDR SEX2))) 

(T NIL) 

)) 

Cuando vi por primera vez un programa LISP 
quedé sorprendido. ¿Cómo era posible que eso, 
que no tenía asignaciones, ni bucles, ni saltos, 
pudiese hacer algo? 



te de LISP teclea RUN "MINILISP". Este pro¬ 
grama es el cargador: te muestra la insignia 
del programa y te pide el tamaño de la tabla 
de identificadores, que es el diccionario interno 
del intérprete. Debes dar un número entre 100 
y 1.000. Pongamos, de momento, 300. (El 
programa está diseñado de modo que te de¬ 
je la mayor cantidad posible de memoria li¬ 
bre —esto lo consigue con el comando CHAIN 
MERGE y su opción DELETE— de modo que 
el programa se carga en cuatro etapas. Én¬ 
tre estas etapas hace dos pausas pronuncia¬ 
das para inicializar las estructuras internas). 
Cuando el intérprete de MINILISP es¬ 
té dispuesto escucharás un pitido y 
aparecerá en pantalla un mensaje 
indicándote la cantidad de memoria 
disponible. Justo debajo aparece el «salu¬ 
do» de tu intérprete: 

> 

Uno se puede entonces imaginar que den¬ 
tro de la máquina se halla un geniecillo que 
está dispuesto a satisfacer todas tus órdenes 
siempre que se las des en su idioma, que es 
LISP. (El geniecillo de nuestro computador es 
un poco perezoso para cumplir los recados 
que le pedimos). 

Vamos a pedirle al genio algo que tanto tú 
como él entenderéis: 

> ( + 2 2) (¡y ENTER claro!) 

En efecto, queremos que el genio nos diga 
cuántas son dos más dos. Cuando el genio 
comprende nuestra solicitud indica con pun¬ 
tos suspensivos que está pensando (evaluan¬ 
do, se dice). Cuando sabe la respuesta nos en¬ 
seña su reloj para que veamos cuánto ha tar¬ 
dado en calcularla y nos dice que dos más dos 
son cuatro. ¡Magnífico! 

El intérprete de LISP «lee» nuestro deseo, lo 
evalúa, imprime el resultado y nos indica a 


continuación que está dispuesto a cumplir un 
nuevo mandato. 

¿Cómo podemos comunicarnos con el duen¬ 
de de LISP y de qué forma nos responderá? 
En principio se le pueden pedir cosas sencillas, 
pero escritas en una forma un tanto extraña 
(a los que hayáis programado algunas calcu¬ 
ladoras tal vez os suene: se llama notación po¬ 
laca). Por ejemplo. Para que calcule 
(2*3) + 15—(6/2) se podría escribir: 

>(+ r 23) 

> (SUB 15 

> (DIV 6 2))) 

¡No parece LISP un lenguaje especialmen¬ 
te pensado para realizar operaciones aritmé¬ 
ticas! Además, MINILISP opera sólo con nú¬ 
meros enteros. LISP es un lenguaje especiali¬ 
zado en manipular listas de objetos (el nom¬ 
bre de LISP viene de LISt Processing, proce¬ 
samiento de listas). Los elementos básicos que 
maneja LISP son los átomos. 

Pero, ¿qué es un átomo? En principio, un 
átomo es cualquier sucesión de letras y núme¬ 
ros que empiece por una letra. Por ejemplo, 
son átomos 

ATOMO átomo Casa Al23 Lista LIstA NIL T 
y no son átomos 

123a (EstoNoEsUnAtomo) 

Tu intérprete de LISP no distingue entre ma¬ 
yúsculas y minúsculas, de modo que ATOMO, 
Atomo y AtoMO son uno y el mismo objeto. 

Sin embargo, también son átomos 
ANDRES PEREZ ES UNA ? ‘ESTRELLAS* 

Todo estos átomos se llaman átomos litera¬ 
les. Podemos dar entonces una definición más 
general de los átomos literales: un átomo lite¬ 
ral es cualquier sucesión de símbolos con dos 
únicas restricciones: 

i) Un átomo literal no puede empezar ni por 
un dígito ni por el símbolo '. 

ii) Un átomo literal no puede contener nin¬ 
guno de los siguientes símbolos: () . % ^ 

Las razones de que estos símbolos no se pue¬ 
dan utilizar las iremos explicando poco a po¬ 


co. Ya hemos visto que LISP también maneja 
números. Los números también son átomos 
aunque, no son átomos literales. (A veces se 
llaman átomos numerales o numéricos. 

En LISP, todas las instrucciones son I ama¬ 
das a funciones (véase el artículo sobre nteli- 
gencia Artificial en el número xxx). Una fun¬ 
ción básica (primitiva) en LISP es QUOTE. Es¬ 
ta función tiene como valor su argumento, es 
decir 

> (QUOTE ANTONIO) 

vale ANTONIO. QUOTE tiene como misión 
impedir que se evalúe su argumento. Por ejem¬ 
plo, cuando tú escribes en Basic. 

PRINT2 + 2 

el intérprete de Basic evalúa la expresión 2+2 
y escribe su valor: 4. Si quieres que no eva¬ 
lúe, debes escribir 

PRINT "2 + 2" 

De la misma forma 

PRINT ANTONIO 

escribiría el valor de la variable ANTONIO, 
mientras que 

PRINT "ANTONIO" 

escribiría ANTONIO. Para impedir que se in¬ 
terprete ANTONIO como una variable debes 
entrecomillarlo; ese efecto de «entrecomi¬ 
llado» es el que se consigue en LISP con la 
función QUOTE. 

En LISP, los átomos literales no tienen valor 
excepto los átomos NIL y T cuyos valores son 
respectivamente NIL y T. Este par de valores 
se usa con frecuencia como valores boolea- 
nos: NIL equivale a falso y T a cierto (True, 
en inglés). En MINILISP, existen otros dos áto¬ 
mos literales con valor: PIZQ que vale (, cuyo 
valor es). Sirve para que pueaas escribir am¬ 
bos paréntesis. Los átomos numerales si tienen 
valor y su valor es el número que represen¬ 
tan. Si se evalúa un átomo que no tiene valor 
se produce un error. (Algunos átomos litera¬ 
les pueden actuar como variables y guardar 
temporalmente valores, pero de las variables 
hablaremos luego). 

Como hay que utilizar mucho la función 
QUOTE se ha ideado una abreviatura para 
ella (igual que puede utilizar ? en vez de PRINT 
cuando programas en Basic). Esta abreviatu¬ 
ra esPor tanto 

también vale ANTONIO. En adelante, en lu¬ 
gar de QUOTE utilizaremos su abreviatura. 

Otra función primitiva de LISP es CONS, que 
produce pares de objetos. Por ejemplo: 

> (CONS 'A 'B) . 

vale (Á.B). Nos encontramos entonces ante un 
objeto que no es un átomo. Se llama par, el 
par que tiene como primer elemento A y co¬ 
mo segundo elemento B. ¿Por qué hemos uti¬ 
lizado QUOTE? Pues porque CONS también 
evalúa sus argumentos y queríamos obtener 
el par formado por A y B y no por sus valo¬ 
res. Un ejemplo más: 

> (CONS 'A 1) 

vale (A. 1). El átomo 1 tiene como valor 1 y 
por eso no hay que ponerle QUOTE delante. 


40 M. AMSTRAD ESPECIAL 









t 



Ahora hagamos la operación contraria: da¬ 
do un par, obtener sus componentes. Hay dos 
funciones que hacen esto: CAR devuelve el pri¬ 
mer elemento del par y CDR su segundo ele¬ 
mento: 

> (CAR ' (A.B)) 

> (CDR ' (A.B)) 

vale B. Además de construir y «destruir» ob¬ 
jetos podemos hacer preguntar al genio sobre 
estos objetos. Por ejemplo, el predicado EQ 
se utiliza para comprobar la igualdad de dos 
átomos literales mientras que para comprobar 
la iqualdad de números debe usarse= 

>( = 48) 

vale NIL. es decir, es falso, mientras que 

> (EQ ' A (CAR ' (A.B))) 

vale T. Date cuenta que el segundo paráme¬ 
tro de EQ, (CAR ' (A.B)), no lleva QUOTE. En 
consecuencia, el genio evalúa esto para dar 
A, según vimos en un ejemplo anterior. El re¬ 
sultado de evaluar 'A también es A y por tan¬ 
to se verifica la igualdad. 

Vamos a construir ahora estructuras más 
complicadas. 

> CONS 'ANA (CONS 'ES 'BONI¬ 
TA)) 

vale (ANA. (ES. BONITA)). CONS sólo ad¬ 
mite dos parámetros, de modo que para ob¬ 
tener estructuras de más de dos elementos de¬ 
be formarse pares de dos en dos. Para refle¬ 
jar esta forma de construir estructuras es me¬ 
jor escribir 


> (CONS 'ANA 

> 'ES 

> , , 'BONITA))) 

Si ahora le preguntamos al genio 

+ (CONS 'A NIL) 

nos responderá con (A). ¿Qué ha ocurrido? 
¿No debería ser la respuesta (A. NIL)? Antes 
dije que LISP es un lenguaje especializado en 
manipular listas y, sin embargo, hasta ahora 
sólo conocíamos átomos y pares. Tanto áto¬ 
mos, como pares y listas se conocen con el 
nombre genérico de expresiones simbólicas (S- 
expresiones o SEXos). Ocurre que el átomo 
NIL es un poco «raro». Pero antes de seguir 
daré la definición de lista: 

i) () es una lista con 0 elementos (se llama 
lista vacía). 

¡i) el par que tiene como primer elemento 
una S-expresión S y como segundo elemento 
una lista L es, a su vez, una lista que tiene co¬ 
mo primer elemento la S-expresión S y como 
resto de la lista la lista L. 

Para los que no estéis acostumbrados a las 
definiciones recursivas —las que usan el ob¬ 
jeto que se pretende definir en la propia 
definición— daré otra definición: una lista es 
o una lista que no tiene elementos, represen¬ 
tada por (), o cualquier cosa que contenga 
átomos, pares u otras listas entre un parénte¬ 
sis abierto "(" y un paréntesis cerrado ")". 
Por ejemplo: 

(ESTO ES UNA LISTA DE 7 ELEMENTOS) 


(ESTO ES (UNA (LISTA DE 3) 
ELEMENTOS)) 

(ESTO (TAMBIEN.ES) ((UNA)) LISTA) 

El tercer ejemplo es una lista de tres elemen¬ 
tos, el tercero de los cuales es a su vez una 
lista de tres elementos. 

(UNA (LISTA DE 3) ELEMENTOS) 

y cuyo segundo elemento es otra lista de tres 
elementos. 

(LISTA DE 3) 

Veamos algunos ejemplos de cosas que no 
son listas- 

LE FALTAN LOS PARENTESIS 
((LE FALTA) EL PARENTESIS DERECHO 

Todos los objetos que manipula LISP o son 
átomos, o son pares, o son listas. Sin embar¬ 
go, existe en LISP un objeto un tanto esquizo¬ 
frénico: es un átomo que también es una lista 
o una lista que también es un átomo. Tiene dos 
representaciones: como átomo, NIL, y como 
lista () (por eso a veces se dice que es BISE- 
Xual). LISP no distingue entre una y otra re¬ 
presentación: para LISP son una y la misma 
cosa. En adelante, usaré la representación que 
me parezca más conveniente, sin hacer refe¬ 
rencia a la otra. 

Por la definición de lista, como A es un áto¬ 
mo y NIL es una lista, entonces (CONS 'A NIL) 
también es una lista, que tiene como primer 
elemento A y como resto la lista vacía (NIL o 
()). ¿Entiendes ahora por qué (CONS 'A NIL) 
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es (A)? Para construir una lista sólo tiene que 
poner como último parámetro del CONS «más 
interno» () o NIL. Por ejemplo: 


> (CONS ' ESTO 

> 

> (CONS ' UNA 

> (CONS 


'LARGA 


+ 

(CONS ' LISTA 

+))))) 

cuyo valor es (ESTO ES UNA LARGA LISTA). 
En este caso, el CONS más interno es (CONS 
' LISTA 0). 

Construir listas de esta forma es un duro tra¬ 
bajo, de modo que existe en LISP una función 
que puede tener cualquier número de argu¬ 
mentos y que produce una lista con los resul¬ 
tados de evaluar cada uno de sus argumen¬ 
tos; es la función LIST. 

> (LIST' ESTO ' ES ' UNA' LARGA ' 
LISTA) 

vale (ESTO ES UNA LARGA LISTA). 

Ya habrás observado la cantidad 
de paréntesis que hay que escribir en 
LISP. Esto no suele ser un problema 
salvo cuando hay que cerrar todos 
los paréntesis que permanecían 
abiertos. Para no tener que andar 
contando con cuidado, en MICROLISP 
puedes escribir el símbolo / para in¬ 
dicarle al genio que quieres cerrar todos los 
paréntesis. 

Hasta ahora no hemos necesitado conocer 
las propiedades de los objetos que le presen¬ 
tábamos a LISP pues ya sabemos que 1 es un 
numeral, PERRO es un átomo y (JUAN.MA- 
Rl) es un par. Sin embargo, vamos a empe¬ 
zar a tratar con variables (sí, ¡por fin!) y en¬ 
tonces sólo conoceremos el nombre del obje¬ 
to y no sus características. Por eso voy a ex¬ 
plicar algunas funciones, llamadas reconoce¬ 
dores, que tienen como fin informarnos de las 
características de los objetos que manejemos. 
ATOM nos dice si un SEXo es un átomo o no 


> (ATOM 'A) 

vale T. 

> (ATOM 1) 

vale T. 

> (ATOM (CAR (A.B / 

vale T, pues (CAR (A.B)) vale A, que es un 
átomo. Pero 

> (ATOM ' (CAR (A.B / 

vale NIL, pues (CAR (A.B)) es una lista. Es¬ 
ta es una característica muy importante de los 
programas LISP: todo programa desde otros 
programas LISP y evalúanos inmediatamen¬ 
te. Esta es una de las ventajas de LISP sobre 
otros lenguajes de programación y una de las 
razones de que se utilice en IA (Inteligencia Ar¬ 
tificial). Más adelante veremos ejemplos de es¬ 
to. 

Otros reconocedores son LITATOM, NUM- 
BERP y PAIRP. El primero nos dice si un obje¬ 
to es un átomo literal, el segundo si es un nú¬ 
mero y el tercero si es un par. 


> 

vale T, pero 
> 

vale NIL. 

> 

vale T y 
> 

vale NIL. 

> (PAIRP ' (A B C)) 

vale T, pues (A B C) es la representación en 
forma de lista de (A. (B. (C.NIL))), que es un 
par con primer elemento A y segundo elemen¬ 
to (B. (C.NIL)). 

La función NULL sirve para reconocer la lista 
vacía. 

> 

vale T. Espero que sepas cuanto vale. 

> 

Si no estás muy seguro pregúntaselo a tu ge¬ 
nio. Un ejemplo más. 

> (NULL ' (A B)) 

vale NIL. 

Hasta aquí hemos visto algunas de las fun¬ 
ciones internas del sistema. Ahora veremos có¬ 
mo podemos definir las nuestras. Supongamos 
que estamos escribiendo un programa para 
encontrar la pareja ideal de algunas personas 
y cuando la encontramos se casan. Para ca¬ 
sar a la feliz PAReja podríamos definir: 

+ (DE BODA (JOSE ANA) (CONS JO¬ 
SE ANA)) 

¿Por qué ahora JOSE y ANA no llevan 
QUOTE? Pues porque ahora JOSE y ANA ac¬ 
túan como variables (se llaman parámetros de 
la función) y no como objetos. Podríamos ha¬ 
berles llamado X e Y, pero una boda entre X 
e Y puede sonar un tanto «robótica». En LISP, 
cualquier átomo literal sirve como nombre de 
función o como nombre de variable, pero no 
puedes definir funciones con los nombres de 
las palabras reservadas de LISP. (Si quieres sa¬ 
ber cuáles son estas palabras reservadas dile 
a tu intérprete (OBLIST). Esta función te mues¬ 
tra en pantalla todos los identificadores que 
MINILISP conoce hasta el momento). 

La forma de definir funciones en LISP es se¬ 
mejante a como se hace en Basic: se utiliza una 
palabra reservada para indicar que lo que si¬ 
gue es una definición, DE, y luego se da el 
nombre de la función a definir, BODA, segui¬ 
do de los parámetros de la función, JOSE y 
ANA, y de las instrucciones para calcular el 
valor de la función, (CONS JOSE ANA). 

Ahora podemos utilizar la función BODA 
que hemos definido de la misma forma que 
una función interna del sistema. Al usarla, de¬ 
beremos dar valores a los parámetros. Por 
ejemplo. 

+ (BODA ' SEGISMUNDO ' ROSA¬ 
LINDA) 

y el feliz enlace sería (SEGISMUNDO. ROSA¬ 
LINDA). 

La posibilidad de definir funciones nos per¬ 
mite modificar los nombres de las funciones del 
sistema LISP. Por ejemplo, las funciones CAR 
y CDR pueden tener nombres adecuados cuan¬ 


do se trata de obtener las componentes pri¬ 
mera y segunda de un par, pero 
> 

que vale A, y 
> 

que vale (B C), no son nombres adecuados 
cuando se pretende obtener el primer elemen¬ 
to de una lista y el resto de la lista (la lista for¬ 
mada al quitar el primer elemento). Por eso: 

> (DE PRIMERO (LIS) (CAR US)) 

> (DE RESTO (US) (CDR US)) 

serán las funciones que use cuando quiera 
hacer referencia al primer elemento de una lis¬ 
ta y a su resto. Por ejemplo: 

> (PRIMERO ' (A B O) 

vale A, y 

> (RESTO ' (A B CJ) 

Vale (B C). Se trata de conseguir que los 
nombres de las funciones y de las variables in¬ 
diquen lo que hacen o son. Ahora tu puedes 
cambiar los nombres de algunas funciones LISP 
si los que tienen no te gustan. Por ejemplo: 

> (DE SUMA (X Y) ( + X Y)) 

> (DE RESTA (X Y) (SUB X Y)) 

> (DE MULTIPLICA (XY)(* X Y)) 

> (DE DIVIDE (X Y) (/X Y)) 

De esta manera, (2*3) +15—(6/2) ahora se 
puede escribir como 

> (SUMA (MULTIPLICA 2 3) 

> (RESTA 15 

> (DIVIDE 6 2 
+) ) 

Antes de empezar a escribir programas mas 
grandes debemos conocer algunas otras fun¬ 
ciones. La primera es COND, que es algo se¬ 
mejante a la instrucción IF condición THEN ins¬ 
trucción ELSE instrucción. La forma general de 
la función COND es: 

(COND (condición 1 instrucción 1) 
(condición2 instrucción2) 

(condiciónk instrucciónk)) 

donde condiciónl, instrucciónl, ..., condi¬ 
ciónk, instrucciónk deben ser sustituidos por lla¬ 
madas a funciones. En Basic se escribiría así: 

IF condiciónl THEN instrucciónl 
ELSE IF condición2 THEN instrucción2 

ELSE IF condiciónk THEN instrucciónk 

Si todas las condiciones valen NIL entonces 
el geniecillo te avisa de que han fallado todas 
las condiciones y el valor de la función COND 
es NIL. Si el valor de alguna de las condicio¬ 
nes no es NIL, entonces el valor de COND es 
el de la correspondiente instrucción. Veamos 
un ejemplo que nos aclara todo esto: 

> (DE SEGUNDO (US) 

> (COND ((NULL US)'(LA LIS¬ 
TA ES VACIA)) 

> ((NULL (RESTO US)' 
(LA LISTA SOLO TIENE UN ELEMEN- 
TO)) 

> (T (PRIMERO (RESTO 

LIS))) 

+ )) 
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Pidámosle al genio que nos diga cuál es el 
segundo elemento de algunas listas. 

> (SEGUNDO () ) 

nos responde (LA LISTA ES VACIA), ya que 
ahora LIS vale () luego (NULL LIS) vale T, que 
es distinto de NIL, y por tanto el valor de 
COND es el de evaluar' (LA LISTA ES VACIA). 

> (SEGUNDO ' (A)) 

es (LA LISTA SOLO TIENE UN ELEMENTO). 
Ahora LIS vale (A), luego (NULL LIS) vale NIL 
y se pasa a evaluar la segunda condición. Co¬ 
mo (RESTO LIS) es () se verifica (NULL (RES¬ 
TO LIS)), que vale T y, por tanto, el valor de 
COND es el de evaluar' (LA LISTA SOLO TIE¬ 
NE UN ELEMENTO). 

> (SEGUNDO ' (A B)) 

vale B, ya que LIS vale (A B), (NULL LIS) es 
NIL y (RESTO LIS) es (B), luego (NULL (RES¬ 
TO LIS)) es NIL. Como T vale T, el valor de 
COND es el de la tercera instrucción, o sea, 
el resultado de evaluar (PRIMERO (RESTO 
LIS)), que es lo mismo que (PRIMERO ' (B)), 
es decir, B. 

El truco de poner T como última condición 
sirve para que siempre se verifique alguna 
condición. Se suele poner casi siempre, pero 
no es necesario. 

De igual forma que en Basic, en LISP pue¬ 
des utilizar las funciones booleanas AND, OR 


y NOT. AND y OR admiten cualquier núme¬ 
ro de parámetros, mientras que NOT sólo tie¬ 
ne uno. AND vale T si ninguno de sus argu¬ 
mentos vale NIL y vale NIL si alguno de sus 
argumentos vale NIL. 

+ (AND (3+ =1) (1 < +23)) 

vale T. 

+ (AND (NULL ()) (CAR ' (NILL))) 

vale NIL, pues (CAR ' (NILL)) es NIL. 

La función OR toma el valor del primer ar¬ 
gumento cuyo valor no sea NIL y vale NIL si 
todos sus argumentos lo valen. 

+ (OR (NULL ' (A)) (CAR ' (B C))) 
vale B, pues (NULL' (A)) es NIL, pero (CAR 
' (B C) es B, que es distinto de NIL. 

La función NOT vale T, si el valor de su ar¬ 
gumento es NIL, y vale NIL cuando el valor 
de su argumento no sea NIL. 

Si has estado jugando con el genio de Ml- 
NILISP habrás visto que no es necesario que 
le digas que escriba un valor para que lo ha¬ 
ga. Sin embargo, todos los mensajes que apa¬ 
recen en la pantalla pueden ser molestos en 
ciertas ocasiones (cuando quieras que tu pro¬ 
grama tenga una «salida» agradable, por 
ejemplo). En ese caso, si escribes (PREVAL NIL) 
suprimirás todos los mensajes que el genio te 
muestra en pantalla (excepto su saludo de «lis¬ 
to»), Cuando quieras que los mensajes apa¬ 



rezcan de nuevo escribe (PREVAL T), por ejem¬ 
plo. Si has quitado los mensajes, el genio no 
escribirá nada si tú no se lo dices. Para eso 
están las funciones de entrada y salida de da¬ 
tos por pantalla: PRINT, PRINT1, TERPRI y 
READ. 

La función PRINT escribe el valor de su úni¬ 
co parámetro y no salta de línea. Como toda 
función LISP, debe tener un valor que es el de 
su argumento. Si escribes: 

+ 

+ (PRINT' ESCRIBO) 

aparecerá en pantalla. 

+ 

pues no ha saltado de línea. La función PRINT1 
es igual que PRINT, pero con salto de línea. 
Luego: 

+ (PRINT 1 ' ESCRIBO) 

+ 

La función TERPRI no tiene parámetros, va¬ 
le NIL y su efecto es producir un salto de lí¬ 
nea. 

Para leer una S-expresión se utiliza la fun¬ 
ción READ, que tampoco tiene parámetros y 
cuyo valor es la S-expresión que ha leído. 

+ (PRINT1 (READ)) 

+ 

y se queda esperando que le des una S- 
expresión. Dale cualquiera, por ejemplo: 

+ (ESCRIBE) 

(ESCRIBE) 

+ 

Otra función de entrada/salida es CLS. La 
llamada: 

+ (CLS) 

borra la pantalla. 

Antes hable de los programas que podían 
ser generados y evaluados desde otro progra¬ 
ma LISP. Construir programas ya sabemos 
+ (LIST ' SUMA 2 2) 
vale (SUMA 2 2), pero no 4. Para evaluar es¬ 
ta lista se utiliza una nueva función, llamada 
EVAL. 

> (EVAL (LIST ' SUMA 2 2) 

si vale 4. 

Explicaré ahora el ejemplo que abre este ar¬ 
tículo. 

+ (DE EQUAL (SEX1 SEX2) 

+ (COND ((ATOM SEX1) (EQ 
SEX1 SEX2)) 

+ ((EQUAL (CAR SEX1) 

(CAR SEX2)) 

+ (EQUAL (CDR SEX1) 

(CDR SEX2))) 

+ (T NIL) 

+)) 

EQUAL es una función con dos parámetros, 
dos S-expresiones cualesquiera. Su valor es T 
si las dos S-expresiones SEX1 y SEX2 son igua- 
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les y NIL en otro coso. Si el primer SEXo es un 
átomo entonces el valor de EQUAL es el de 
(EQ SEX1 SEX2). Recordemos que EQ era cier¬ 
to, T, si sus dos argumentos eran dos átomos 
literales iguales y NIL en otro caso. Por tan¬ 
to, si SEX2 no es un átomo literal o, siéndolo, 
es distinto de SEX1 no es un átomo, pero si lo 
es SEX2 entonces el valor de EQUAL es NIL, 
como debe ser. Si ninguno de los SEXos es un 
átomo, entonces ambos deben ser pares o lis¬ 
tas. Ninguno puede ser la lista vacía (pues (), 
o NIL, también es un átomo) luego podemos 
tomar sus CAR y sus CDR. Para que dos listas 
sean ¡guales elemento a elemento debe ocu¬ 
rrir que tengan el primer elemento igual y los 
restos de sus listas también sean ¡guales. Si sus 
primeros elementos no son iguales entonces las 
iistas ya no serán iguales. 

El esquema de la función EQUAL represen¬ 
ta una forma usual de programar en LISP: 

Para calcular el valor de una función apli¬ 
cada a una lista hacer: Mientras la lista no sea 
vacía hacer: 

Aplicar alguna operación sobre el primer 
elemento de la lista; aplicar la función al res¬ 
to de la lista. 

La función EQUAL es una función del siste¬ 
ma y que no es necesario que la programes. 
Sin embargo, si quieres ver como funciona 
puedes definirla con otro nombre, por ejem¬ 
plo, IGUALES: 

+ (DE IGUALES (SEX1 SEX2)... 

Ahora escribe 

+ (TRACE ' (IGUALES)) 

y llama a IGUALES con algunos argumen¬ 
tos algo complicados. 

+ (IGUALES ' (A (B (C.D) E) () F) 

+ ' (A (B (C.D) E) ())) 

Irán apareciendo en pantalla los sucesivos 
argumentos de la función IGUALES y sus res¬ 
pectivos valores. Cuando ya no quieras ver la 
«traza» (TRACE) de la función, puedes es¬ 
cribir: 

+ (UNTRACE ' (IGUALES)) 

La función IGUALES, tal como está defini¬ 
da, no funciona para números, es decir: 

+ (IGUALES 5 5) 

vale NIL. 


Edición 

de programas 


Existen en MINILISP algunas facilidades pa¬ 
ra una mejor escritura de programas: 

i) ' SEX es una abreviatura de (QUOTE 
SEX). 

El símbolo ' no puede formar parte de un 
identificador pues PEPE'S es interpretado por 
MINILISP como: 

PEPE (QUOTE S) 

ii) % hace que MICROLISP ignore el resto 
de la línea. Sirve para escribir comentarios. 

iii) ^ cierra todos los paréntesis que que- 
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dan por cerrar. Se produce un error si ya es¬ 
taban todos cerrados. 

La edición de programas LISP es una tarea 
costosa, de manera que MINILISP no lleva in¬ 
corporado editor. Por ello te recomendamos 
que cuando sepas que vas a escribir lo hagas 
con un editor de textos y luego le pases el fi¬ 
chero donde está tu programa a MINILISP 
[luego explicaremos como puede hacerse es¬ 
to]. Desgraciadamente los programas no sue¬ 
len funcionar a la primera, así es que tendrás 
que corregirlos y suele ser más cómodo ha¬ 
cer esto ayudado por MINILISP. Para ello te 
recomendamos que sigas los siguientes pasos: 

1. Borra la definición incorrecta con la 
llamada: 


(REMPROP ' < nombre + 'EXPR) 

donde < nombre + es el nombre de la fun¬ 
ción errónea. Esta llamada devuelve la 
lambda-expresión que define a la función. 

2. Escribe 


(PUT'< nombre + 'EXPR' 

y a continuación copiar con las teclas del cur¬ 
sor la lambda-expresión que obtuvimos antes, 
corrigiendo la parte que esté mal. (Si la defi¬ 
nición es muy larga y no cabe en 255 carac¬ 
teres tendrás que pulsar alguna vez la tecla 
[ENTER], pero ten cuidado de no partir algún 
identificador ya que, entonces, MINILISP lo 
consideraría como dos átomos], 

3. Te puedes evitar escribir os paréntesis 
finales si escribes el símbolo 

4. Pulsa [ENTER]. 


/ 


Funciones 

de comunicación externa 


mo fichero de entrada [desde disco o cinta]. 
En este modo, cada vez que MINILISP inten¬ 
te leer lo hará del fichero establecido. Cuan¬ 
do se alcanza el final de fichero, automática¬ 
mente MINILISP vuelve a establecer como fi¬ 
chero de entrada el teclado de la computa¬ 
dora [este hecho lo advierte con un pitido]. Pa¬ 
ra detectar el final del fichero se puede utili¬ 
zar la función EOF, que no tiene argumentos. 
Su valor es T, si se ha alcanzado el final del 
fichero, y NIL en otro caso. 

Si el modo es OUTPUT, se abre el fichero 
como fichero de salida y todo lo que MINI- 
LISP envíe a pantalla lo mandará también al 
fichero. 

Con el modo DEFS se abre un fichero de sa¬ 
lida en el que se guardan las definiciones de 
las funciones de usuario que MINILISP conozca 
hasta ese momento. Cada definición se guar¬ 
da escrita en la forma (DE f (xl...xk) c) por 
lo que se genera un fichero que puede ser 
«comprendido» por MINILISP. 

Si el fichero se abre en modo PROPS, es con¬ 
siderado como fichero de salida y en el que 
se escriben las propiedades de los identifica- 
dores que MINILISP conozca hasta el momen¬ 
to. Estas propiedades se guardan en la forma 
(PUT 'id 'prop 'val) con lo que se genera un 
fichero que puede ser leído por MINILISP. De 
esta forma se puede preservar el contexto ac¬ 
tual y reanudar posteriormente la sesión des¬ 
de el punto en el que dejó. Para ello bastará 
hacer (OPEN ' < nombre + TNPUT) donde 
< nombre + es el nombre del fichero [sin la 
extensión, ya que se asume .LIS]. 

El modo PRINTER sirve para mandar la sa¬ 
lida por pantalla también a la impresora. Ade¬ 
más, si se abre algún fichero en los modos 
DEFS o PROPS, aquello que se escriba tam¬ 
bién en estos ficheros se manda a la impreso¬ 


MINILISP puede mantener abiertos un fiche¬ 
ro de entrada, uno de salida y una impreso¬ 
ra. Para abrir y cerrar estas vías de comuni¬ 
cación se utilizan las funciones OPEN y CLO- 
SE. Las dos funciones son de tipo e.s. 

OPEN tiene dos argumentos. El primero de¬ 
be tener como valor un átomo, que junto con 
la extensión .LIS se considera como nombre 
del fichero. El segundo argumento es el mo¬ 
do de operación: INPUT, OUTPUT, DEFS, 


ra. 

La función CLOSE cierra el fichero que esté 
abierto con el modo especificado por su pa¬ 
rámetro. El valor del argumento debe ser IN- 
PUT, OUTPUT o PRINTER. Tiene como valor 
el de su argumento. 

La función CAT, que no tiene parámetros, 
sirve para obtener un catálogo del disco o la 
cinta. Si se está utilizando cinta debe pulsarse 
la tecla [ESC] para terminar el catálogo. Si se 
usa disco esto no es necesario. 


PROPS o PRINTER. 

Si el modo es INPUT el fichero se abre co- 
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Una de tos más prestigiosas y completas 'hojas de cálculo* del 
mundo. Rápida y versátil, ofrece prestaciones, como la de relacio* 
nar varias hojas entre si, que no son frecuentes. La capacidad de 
ejecutor ordenaciones alfabéticas o numéricos, sus posibilidades en 
cuanto a formato en pantalla y en impresora, los menús en panta¬ 
lla y la potencia de cálculo, son características distintivas y desta¬ 
cabas de MULTIPLAN. 

PVP: 15.100.- Pts. (+ IVA) 


Reconocido como el estándar mundial de los lenguajes intérpretes 
para microordenadores. Fácil de aprender y utilizar. 

PVP: 15.100.- Pts. (+ IVA) 


El lenguaje más utilizado en aplicaciones cinetíficas y de ingeniería, 
es una potente implementación del ANSI-FORTRAN X3.9 

PVP: 24.900.- Pías. (+ IVA) 


Un completo paquete de desarrollo que incluye: MS-MACRO AS- 
SEMBLER; MS-LINK, MS-LIB, MS-CREF y DEBUG. 

PVP: 12.000.- Ptas. (+ IVA) 



H DIGITAL 
RESEARCH 

The creators of CP/M " 


Programo interactivo para la creación y edición de gráficos y dia¬ 
gramas. Tres elementos básicos —lineas, texto y símbolos— son uti¬ 
lizados pora producir gráficos de alta calidad... logos, diagromas 
de bloques, diagramas de flujo, etc. Los símbolos, tipos de letra y 
estilos de líneas, pueden alterarse y modificarse a voluntod del 
usuario. 

PVP: 15.100.- Pts. (+ IVA) 


Generodor de gráficos —de líneas, barros, columnas y de pastel- 
de muy sencillo manejo. Permite incluir textos y leyendas con gran 
flexibilidad de creación y edición. 

PVP: 15.100.- Ptas. (+ IVA) 




ri'.vviaia 



DRD»w 


Totalmente compotible con el MBASIC Interpreter pero con una ve¬ 
locidad de ejecución de 3 a 10 veces más rápido. Traduce el códi¬ 
go fuente a código objeto y permite una utilización más eficaz del 
espacio. 

PVP: 15.100.- Ptas. (+ IVA) 


Lenguaje COBOL según el estándar ANSI, especialmen¬ 
te útil para manejar grandes volúmenes de datos. 

PVP: 46.500.- Ptas. (+ IVA) 


DRGrap* 1 




ams 


CPC6128 


El Generador de Programas por excelencio. Permite crear bases de 
datos relocionodos a partir de comandos sencillos y sin requerir co¬ 
nocimientos de programación. Las aplicaciones de dBASE II son in¬ 
contables y cada usuario puede desarrollar las que me|or se adap¬ 
ten o sus necesidades: ficheros y mailings, contabilidades, nóminas, 
control de costos, control de afmacén, facturación, etc. Ampliamen¬ 
te acreditado como uno de los programas más útiles y recomenda¬ 
bles de cuantos existen para microordenadores. Manual en coste- 

PVP: 17.800.- Ptas. (+ IVA) 


El mas rápido PASCAL existente con implementación completa del 
estándar ISO. Un compilador de código nativo que genera en for¬ 
mato reubicable para usar con su montador de enlace (linlcer). 

PVP: 15.100.- Ptas. (+ IVA) 


Versión mejorado del clásico lenguaje CBASIC, con mayor veloci¬ 
dad de ejecución y altamente flexible diseñado especialmente para 
el desarrollo de programas de gestión. Incluye el linker LK-80, que 
cambia lo salida del compilador con lo rutinas de biblioteca y per¬ 
mite el encadenamiento de módulos. 


PVP: 15.100.-Ptas. (+I.VA.) 




■H 


I/MT+ 


Plasca 


Flexible programo de ordenación según la técnica de la 
inserción binaria, utilizable íñdependíenlemenfe o inclui- 
ble en programas esci itos en M$ COBOL 

PVP: 15.100.- Ptas. (+ IVA) 





















































Manual de Miniusp 


Ofrecemos aquí un manual de referencia que 
sirva sobre todo , cuando ya domines el lenguaje, 
para resolver todas aquellas pequeñas dudas que 
siempre surgen . 

R. G. Bernal 


drás problemas en comprender las 
reglas FBN que definen la sintaxis de 
las S-expresiones y que damos a con¬ 
tinuación. Sin embargo, si no las en¬ 
tiendes no te preocupes, pues más 
adelante se dan ejemplos. 

< S-expresión + :: = < Atomo + 

I < Par + I < Lista + 

< Atomo+ :: = < Literal + 



< Número2> ::= < 
Dígito > < Dígito > 
indica que un objeto de 



tipo 



rama, 
e la ta- 


de cargar el resto del pro 
También inicializa el tamaño 
bla de símbolos. - 

2. LISP. BAS: Es el intérprete de 
LISP [en Basic]. Permanece constan¬ 
temente en memoria [no así el ante¬ 
rior, que se borra al cargarse éste]. 

3. LISP. DAT: Este es un fichero 
ASCII que contiene los datos necesa¬ 
rios para rellenar el contexto inicial. 

4. ERRLISP. BAS: Contiene la par¬ 
te de gestión de errores y mensajes 
del sistema. Se carga tras borrar de 
la memoria la rutina de inicialización 
de las estructuras. 


lúmero2 > se representa por un 


MINIUSP: Es el encargado ^ de f¡po < Díg¡to > segu ¡do 

del mismo tipo. La barra 


por otro del mismo tipo, 
vertical I actúa como disjuntor [0 ló¬ 
gico], Por ejemplo: 

< Dígito ::= 011 ! 2 I 3 ! 41 5! 

6 ! 7 ! 8 I 9 

quiere decir que un objeto de tipo 

< Dígito > es o bien 0, o bien 1, o 
bien..., o bien 9. Entonces, ejemplos 


de 


2.° Tipos de datos primitivos 


objetos de tipo 
< Número2 > serían 55, 13, 17, 80, 

01, 00 y 99. 

Otros símbolos que se usan en las 
reglas FBN son [, ] y {, }. Los nom¬ 
bres de objetos se encierran entre 
corchetes para indicar que es opcio¬ 
nal escribirlos o no. Por ejemplo: < Símbolo 


I < Numeral + 

< Literal + :: = < Mar 

< Atomo + 

< Numeral + :: = [< Signo + 
gito + {< Dígito + } 

< Par + :: = (< S-expresión + . 
expresión +) 

< Lista + :: = ()!(< Lista—de— obje¬ 
tos + J 

< Lista—de—objetos + :: = < S- 
expresión + { < Lista-de- 
objetos +} 

< Marca + ::=< Letra + I 

< Símbolo + 

< Dígito+ :: = 0 I1I2I3I4I5I6 
I 7 I 8 I 9 

< Signo + ::= + !— 

< Letra + :: = AIBICIDIEIFIG 

IHIIIJIKILIMI 




"V-j? 


M. 


N 


I 


h I 


n< 


Todas las consecuencias admisibles por Ml- 
NILISP son expresiones simbólicas [$- 
expresiones]. Entre éstas podemos distinguir 
varios tipos y sus reconocedores: 

S-expresiones: 

— Atomos: ATOM 

— Literales: LITATOM 
— Números: NUMBERP 

— Pares: PAIRP 


Sintaxis de las S-expresiones 

Para definir la sintaxis de un len¬ 
guaje de programación se suelen uti¬ 
lizar algunos formalismos como las 
reglas de Backus-Naur o los diagra¬ 
mas sintácticos. Aquí emplearemos el 
primero de ellos. 

Las reglas en forma de Backus- 
Naur [reglas FBN] constan de tres 
partes: un lado izquierdo, que es lo 
que se quiere definir: el símbolo :: = , 
y un lado derecho, que es la defini¬ 
ción. Los objetos que se quiere defi¬ 
nir se suelen encerrar entre los sím¬ 
bolos < y >, por ejemplo < 
Número2 > . La yuxtaposición de ob¬ 
jetos [escribir uno al lado de otro' 
dica que a continuación de un 
to del primer tipo se escribe un 
segundo. Por ejemplo: 



< Número2—con— sig¬ 

no >:: = [< Signo > ] < Número2 > 

quiere decir que un objeto de tipo 

< Número2—con—signo > es un 

objeto de tipo <Número2> que 
puede ir precedido o no de un sig¬ 
no. Si definimos:^ { 

< Signo > ::= +1— 
entonces ejemplos de objetos de ti¬ 
po < Número2—con—signo + son 
-34, +13, -00, + 00, 00, 99 y 17. 

Las llaves {y } indican que el obje¬ 
to al que encierran se puede repetir 
tantas veces como se quiera. Por 
ejemplo: 

< Número—sin—signo = < Díg 

¡to + {< Dígito. 

quiere decir que un objeto de tipo 

< Número2—sin—signo + es una 
secuencia de objetos de tipo 

< Dígito + de cualquier longitud [de¬ 

be tener al menos un dígito]. Por 
ejemplo, 12345567890, 

íniiiniiiiiii iiy n 11 n l i 

1111111111, etc. Aunque cpncfp- 
tualmente el tamaño del objeto no 
esté limitado, físicamente si que lo es¬ 
tá (número de bytes de un computa¬ 
dor, número de folios que puedes es¬ 
cribir, etc.). 

Sihose ntendido todo esto no ten- 


P I Q I R I S I 
I W I X I Y I Z I 
I d I e I f I g 
I k I I I m I n 
q I r I s I t I u 
y I z I 

I # I $ I & I * 
<1 = 1+1? I «[ I [ 

I ] 111 — I {I I 1} I # Obsérvese que 


I O I 
TI U IVI 
b I c 

MÍ 

P * 

I x I 


I o I 


o 

V 


+ :: = 


I + I , I / I : I ; I <1 = 1 


como símbolos no se admiten: 


idmiten: 

t ^^Dperador unario:^l|jB¿3<H^^S 


Contracción de QUOTE: 

— Terminador de paréntesis: y 

— Comentario: % 

— Punto del par: . 

Veamos algunos ejemplos: 

Literales 

suma + suma—I- ES—suma? 
-t-suma *no—Suma dolar$ 

Numerales 

00000000 1523 -153 -00 
0000001 32767 -32768 

[En MINILISP los ceros a la izquier¬ 
da no sirven para nada. Hay que no¬ 
tar también que números mayores 
que 32767 o menores que —32768 
darán un error 6 de desbordamien¬ 
to numérico.] 

Atomos 

Todos los ejemplos anteriores lo 
son también de átomos, pues los áto¬ 
mos o son literales o son numerales. 



Pares 






(suma. + ) (UNO.l) (PAR. (uno.l)) 
((par. de), (dos.pares)) 


E. (quiere.(a.(ÁNA.NIL)))) 
quiere a ANA) ((LISTA.DE) 


TRES.PARES)) 
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(LISTA (DE (LISTAS (DE (MAS) LIS¬ 
TAS)))) 

S-expresiones 

Todos los ejemplos lo son también 
de S-expresiones, por la primera re¬ 
gla. 


3. a Constantes predefinidas 


En el contexto inicial de MINILISP 
se Han introducido un reducido con¬ 
junto de constantes necesarias para 
el uso del intérprete. Podemos divi¬ 
dirlas en dos tipos, según que tengan 
o no atributo VALUE: 

1. Constantes con valor: 

NIL: valor NIL 

T: valor T 
PIZQ: valor cS 
PDER: valor) 

2. Constantes sin valor: 

VALUE, LAMBDA, FSUBR, SUBR, 
EXPR, FEXPR y MACRO. 


Lista de objetos y listas de 
propiedades 


S üKSLñ 

MINILISP mantiene una lista de los 
identificadores conocidos hasta el 
momento de una tabla hash. En cual¬ 
quier momento es posible ver el con¬ 
tenido de esta tabla mediante la lla¬ 
mada: # TtsEíj" 

(OBLIST) 

Sin embargo, por razones de eco¬ 
nomía de memoria y de velocidad de 
proceso, la lista de objetos no se 
mantiene en una lista LISP por lo que 
OBLIST tiene valor NIL y como efec¬ 
to colateral la impresión de la tabla 
de identificadores. 

MINILISP inserta un identificador 
en la tabla de símbolos sólo y cuan¬ 
do éste no se encuentra ya en la ta¬ 
bla. Por tanto, el predicado de igual¬ 
dad de átomos, EQ, se implemento 
mediante la comprobación de igual¬ 
dad de punteros. Por este motivo, 
EQ no es válido para verificar ni la 
igualdad de pares ni la de números. 
Para pares debe utilizarse la función 
EQUAL. La igualdad entre números 
se comprueba con el predicado = . 
Funciones que modifican la lista de 
objetos: 

_IVE id) id debe evaluar a un 

tomo. Tiene como efecto suprimir el 
identificador id de la lista de objetos. 
Su valor es NIL. 

(REMOVE 'PRIMERO) eliminaría el 
átomo PRIMERO de la lista de obje- 
Chace inaccesibles todas sus pro- 
fades. 


(COMPRESS lis) lis debe tener como 
valor una lista de átomos, debiendo 
ser el primero de estos un átomo li¬ 
teral. Comprime la lista para formar 
un identificador literal. El átomo re¬ 
sultante se coloca en la lista de obje¬ 
tos y se devuelve como valor de la 
función. 

(COMPRESS '(VAR 1 4)) devuelve 
como valor VAR14 a la vez que in¬ 
serta este átomo en la lista de obje¬ 
tos (si no estaba ya). 

(EXPLODE id) id debe evaluar a un 
átomo. Tiene el efecto contrario a 
COMPRESS: genera la lista de los ca¬ 
racteres que componen id, que se da 
como valor de la función. 

Los caracteres que no son dígitos 
se colocan en la lista de objetos. 

(EXPLODE 'PALABRA) vale (P A L 
A B R A) y coloca los átomos P, A, 
L, B y R en la lista de objetos (si aún 
no estaban). 

(EXPLODE 'VAR 14) vale (VARI 
4) e introduce los átomos V, A y R en 
la lista de objetos (si no estaban). 

(EXPLODE 'A-Z) vale (A l-Z) pues 
el símbolo - no está permitido como 
átomo. 

Listas de propiedades: 

MINILISP mantiene una lista de 
propiedades (atributos) para cada 
identificador presente en la lista de 
objetos. 

Existen tres funciones en MINILISP 
encargadas de crear, consultar y 
modificar listas de propiedades. To¬ 
das ellas evalúan sus argumentos: 
(PUT id prop val) Coloca el resultado 
de evaluar val como valor de la pro¬ 
piedad prop del identificador id. Si 
ya existía la propiedad, da error y 
no modifica el valor de prop. 

(PUT 'PRIMERO 'EXP' (LAMBDA 
(LIS) (CAR US))) coloca la lambda- 
expresión (LAMBDA (LIS) (CAR LIS) 
como valor del atributo EXPR en la 
lista de propiedades del identificador 
PRIMERO. El valor que devuelve es 
PRIMERO. 

(GET prop id) Devuelve el valor de la 
propiedad prop en la lista de propie¬ 
dades de id [o NIL si no aparece en 
la lista de propiedades de id]. 

(GET 'EXPR 'PRIMERO) vale 
(LAMBDA (LIS) (CAR LIS) si se hizo 
la instrucción anterior y NIL si no 
existe la propiedad EXPR de PRIME- 

(REMPROP id prop) Elimina prop y su 
valor val de la lista de propiedades 
de 

Devuelve val [o id y un mensaje si 
prop no existía como propiedad id]. 

'REMPROP 'PRIMERO 'EXPR) eli¬ 
mina la propiedad EXPR de la lista 


de propiedades de PRIMERO, y tie¬ 
ne como valor la S-expresión (LAMB¬ 
DA (LIS) (CAR LIS)). Si después de es¬ 
ta llamada se hace (GET 'EXPR 'PRI¬ 
MERO) se devuelve el valor NIL pues 
ya no existe la propiedad 'EXPR. 


5.° Definición de funciones y 


Funciones: 

De los cuatro tipos posibles de fun¬ 
ciones en LISP [según que se evalúen 
o no los argumentos y que el núme¬ 
ro de éstos sea fijo o variable] sólo 
dos son directamente definibles en 
MINILISP: eval-spread [evalúa y nú¬ 
mero de argumentos fijo] y noeval- 
nospread [no evalúa y número de 
argumentos variable]. Ninguno de 
estos «definidores» evalúa sus argu¬ 
mentos: 

(DEf (xl... xn)c) Define la función f 
como de tipo e.s. con variables for¬ 
males xl,..., xn y cuerpo c. Tiene co¬ 
mo valor f y su efecto es poner la 
lambda-expresión (LAMBDA (xl ... 
xn) c) como valor del atributo EXPR 
de f. 

(DFf(l)c) Define la función f como 
de tipo n.n. con cuerpo c y lista de 
argumentos 1. Su efecto es poner la 
lambda-expresión (LAMBDA (1) c) 
como valor de la propiedad FEXPR 
de f. Tiene como valor f. 

Macros: 

Es este un tipo especial de defini¬ 
ción. En MINILISP se puede utilizar 
mediante la función DM con la si¬ 
guientes sintaxis: 

(DMf (1) c) No evalúa sus argumen¬ 
tos. Tiene valor f y como efecto po¬ 
ne la lambda-expresión (LAMBDA 
(1) c) como valor del atributo MA¬ 
CRO de f. 

Las llamadas a una macro son de 
la forma: 

(f el... en) (n cualquiera) 

y se evalúan en dos fases: 

i) Se evalúa c en un contexto am¬ 
pliado con la ligadura de 1 a la for¬ 
ma (f el... en). 

¡i) Se evalúa la forma obtenida en 
i) siendo el resultado el valor de la 
liamada. 

Un ejemplo de macro es la función 
LET:" 



)NS (LIST 'LAMDA 
(PARES LA)) 
(EXPCUALIF LA)) 
(EXPRESIONES (PARES LA)))) 
siendo 
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sus lados iz 
as la evalúa 
luiente argu 


ción continua con 
mentó de PROG. 


Tanto los operadores aritméticos 
como los relaciónales entre números 
son de tipo e.s. [Los números se eva¬ 
lúan a sí mismos] y tienen dos argu- 


7.° Aritmética 
y lógica 


(DE PARES (U) (RESTO (RESTO U))) 
(DE VARIABLES (LISPAR) 

(COND ((NULL LISPAR( ()) 

(T (CONS (VAR (PRIME¬ 
RO LISPAR)) 

(VARIABLES 

(RESTO 

LISPAR)))) 

(DE EXPRESIONES (LISPAR) 

(COND ((NULL LISPAR) ()) 

(T (CONS (EXP (PRIMERO 
LISPAR)) 

(EXPRESIONES 

(RESTO 

LISPAR)))p*jJ2 

(DE EXPCUALIF (U) (SEGUNDO U)) 
(DE VAR (PAR) (PRIMERO PAR)) 

(DE EXP (PAR) (SEGUNDO PAR)) 
(DE PRIMERO (LIS) (CAR (LIS) 

(DE SEGUNDO (LIS) (PRIMERO 
(RESTO LIS))) 

(DE RESTO (Llí 


d) Si el último argumento de PROG 
ha sido evaluado y no era ni una for¬ 
ma GO ni una forma RETURN enton¬ 
ces el valor de PROG es NIL. 

e) Si un argumento de PROG es 


Supongamos q 
luar la expresió 


(LET (LIST U V 
(U (CAR 
(V (CDR '(D 

En el primer pa 
lor del parámetn 
LET el valor 


En la base de estas construcciones 
se hallan las funciones de asignación: 

(SET el e 2) De tipo e.s., la evalua¬ 
ción de el debe ser una variable for¬ 
mal o declarada. Liga al valor de el 

el de e2 y devuelve como valor el de COND y ninguno 
e2. Í^j quierdos vale T enton 

(SETO id e) Es de tipo n.n. Tiene el 
mismo efecto y valor que (SET 'id i 

Los «constructores» de instruc 
nes iterativas son dos, 
po n.n.: 

PROGNel... ek) 

Permite la llamada consecutiva a 
varias funciones. Tiene como valor el 
de ek [el, ..., e(k-l) se evalúan por Aritmética 
su «efecto»]. 

(PROG (xl...xn) el...ek) 

xl, ..., xn son las variables locales 

de la forma PROG (sólo se pueden?, __ ___ 

utilizar dentro del cuerpo de la ins- mentos. Son los siguientes: 

trucción PROG). Las formas el. {+ fi2) e] + e2 

ek constituyen el cuerpo de la torma (SUB el e2) el— e2 

7 . /* e i e2 \ e ] * e 2 

ista de variables puede ser (), (D|y el e ' 2) e1/e 2 [división entera] 
o debe existir. Las variables de ' #«i e 2) el* 2 

una forma PROG se inicializan todas (MAX e2) e| máximo entre el y e2 

Los operadores relaciónales son: 

'<r 


(LET (LIST U V U) (U (O 
(V CDR '(D E F)))) 

y se evalúa de forma 
po de la función LET. El res 
esta evaluación es: 

(LAMBDA (U V) (LIST U V U) (CAR 
'(A B C)) (CDR '(D E F))) 

En el segundo paso se evalúa esta 
expresión dando como valor 


formas que 
de una fo 
indicionales, 
vas, formas RET' " 
etiquetas y asigna' 

Las formas con 
sitan tener un 
[en una form 
un PROG, si to 
dos se evalúan a NIL se 
mensaje de aviso]. En 
ma el valor NIL y se cede 
a la siguiente instrucc 


(RETURN e) Es de tipo 
eva luación del PROG 


(A (E F) A) 


que pasa a ser el valor de la función 
LET. 


6. a Construcciones 
iterativas 


Aunque la programación impera¬ 
tiva no es necesaria en un lenguaje 
funcional como LISP su uso, no obs¬ 
tante, está justificado en un peque¬ 
ño computador como en el que se 
ejecuta MI NI LISP, tanto por el aho¬ 
rro de memoria [que no es excesiva 
y no se puede «derrochar»] como de 
tiempo [no prolongar mucho progra¬ 
mas ya que de por sí lentos]; i 
hay problemas técnicos [como el del 
tamaño de la pila que soporta la 
cursión]. 


ina la 
_ endo 

como valor el de e. 

(GO id) Es de tipo n.n. Cede el con¬ 
trol a la instrucción siguiente a la eti¬ 
queta id [para MINILISP, una etique¬ 
ta es cualquier átomo literal]. Si id no 
es una etiqueta o no existe dentro de 
la forma PROG se genera un error. 

Los argumentos de PROG son eva¬ 
luados uno tras otro, a partir del se¬ 
gundo [el primero es la lista de va¬ 
riables], con las siguientes excepcio¬ 
nes: 

a) Un argumento atómico no se 
evalúa: se considera como una eti¬ 
queta. 

b) La evaluación de la función GO 
hace que LISP continúe la evaluación 
de PROG tras la etiquefq qi\t$s el 
argumento de GO. 

c) Si la función RETURN 
la evaluacióW® 

de la fundón PROG 
I argumento de RE- 


Las funciones lógicas existentes i 
MINILISP sOt&VjL 
(NOT e). Es de tipo e.s. Coincide 
con la función NULL: vale T, si (EQ 
NIL), y NIL, en otro caso. 

(AND el... ek). Es de tipo n.n. Pa¬ 
ra calcular su valor se evalúan las 
en orden, desde la izquierda hac 
la derecha. Si alguna da NIL 
vuelve NIL y no se evalúan las 
más; si no, se devuelve T. 

(OR el... ek). Es de tipo n.n. Para 
calcular su valor se evalúan en orden 
las ei. Devuelve el valor del primer 
ei que no sea NIL, o NIL si todos los 
valen NIL. 


ei 


8.° Funciones MAP 


PROG 


re 


Las mejoras introducidas en esta 
nueva versión de MINILISP permiten 
que se utilicen argumentos funciona¬ 
les, de ahí que sea posible la defini¬ 
ción de funciones map. Por razones 
de espacio el intérprete de MINILISP 
no lleva incorporada ninguna. 

(Jn ejemplo de función map 
siguiente: 

(DE 




FUN) 
LIS) NIL) 


/ 
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US) FUN)) 

al % 

FUN es el argumento funcional, es 
decir, el valor de FUN es o bien el 
nombre de una función o una 
lambda-expresión. Entonces (FUN 
US) quiere decir que el valor de FUN 
se aplica al valor de US [se espera 
que US sea una lista]. Otros ejemplos 
de funciones MAP pueden verse en 
el fichero de ejemplo SURTIDO.US. 


9.° Funciones de edición 


Existen en MINIUSP una serie de 
facilidades para la mejor escritura de 


3. Te puedes evitar escribir los pa¬ 
réntesis finales si escribes el símbolo 




abreviatura 


de 


programas: 

¡) 'SEX es una _ 

(QUOTE SEXPElffiL ^ 

El símbolo ' no puede formar par¬ 
te de un identificador pues PEPE'S es 
interpretado por MINIUSP como: 

PEPE (QUOTE S) 

ii) % hace que MICROUSP igno¬ 
re el resto de la línea. Sirve para es¬ 
cribir comentarios. 

iii) y cierra todos los paréntesis 
que quedan por cerrar. Se produce 
un error si ya estaban todos cerra- 

La edición de programas USP es 
una tarea costosa, de manera que 
MINIUSP no lleva incorporado edi¬ 
tor. Por ello te recomendamos que 
Jo sepas que vas a escribir lo 
con un editor de textos y lue- 
pases«l fichero donde está tu 
rograma a MINIUSP. Desgraciada¬ 
mente los programas no suelen fun¬ 
cionar a la primera, así es que ten- 
que corregirlos y suele ser más 
toao corregirlos ayudado por 
JLISP. Para ello te recomenda¬ 
re sigas los siguientes pasos: 
Borra la definición incorrecta 
con la llamada: 

IPROP '< nombre + 'EXPR) 

npr)r»bre + es el nombre de 
i errónea. Esta llamada de- 
p lambda-expresión que de- 
3 función. 

ribe (PÜJ : ' < nombre + 
continuación copiar con 
cursor la lambda- 
obtuvimos antes, co¬ 
te qyefesté mal. [Si 





4. Pulsa ENTER. 


10. a Entrada y salida 


(READ). No tiene argumentos. Su 
valor es la primera S-expresión que 
lee del dispositivo actual de entrada. 

(PRINT e). Es de tipo e.s. Escribe, 
con salto de línea, el valor de e, que 
también es el valor de la función. 

(PRINT1 e). Igual que PRINT, pe¬ 
ro sin salto de línea. 

(TERPRI). No tiene argumentos. 
Tiene como valor NIL y como efecto 
produce un salto de línea en los dis¬ 
positivos de salida establecidos. 

(SPACE e). Es de tipo e.s. El valor 
de e debe ser un número que es el 
número de caracteres blancos que 
deja. [No tiene salto de línea]. El va¬ 
lor de la función es el mismo que el 
de e.^> mJgm- *- 

Funciones de comunicación 

MINIUSP puede mantener abier¬ 
tos un fichero de entrada, uno de sa¬ 
lida y una impresora. Para abrir y ce¬ 
rrar estas vías de comunicación se 
utilizan las funciones OPEN y CLO- 
SE. Las dos funciones son de tipo e.s. 

OPEN tiene dos argumentos. El 
primero debe tener como valor un 
átomo, que ¡unto con la extensión 
.LIS se considera como nombre det 
fichero. El segundo argumento es el 
modo de operación: INPUT, OUT- 
PUT, DEFS, PROPS o PRINTER. 

Si el modo es INPUT el fichero se 
abre como fichero de entrada [des¬ 
de disco o cinta]. En este modo, ca¬ 
da vez que MINIUSP intente leer lo 
hará del fichero establecido. Cuan¬ 
do se alcanza el final de fichero, 
automáticamente MINILISP vuelve a 
establecer como fichero de entrada 
el teclado de la computadora [este 
hecho lo advierte con un pitido]. Pa¬ 
ra detectar el final del fichero se pue¬ 
de utilizar la función EOF, que no tie¬ 
ne argumentos. Su valor es T, si se 
ha alcanzado el final del fichero, y 
NIL en otro caso. 

Si el modo es OUTP 
como fichero 
ue MINILISP envi 
aró también al fi 
-de D" 


ta ese momento. Cada definición se 
guarda MINILISP conozca hasta ese 
momento. Cada definición se guar¬ 
da en la forma (DE f (xl... xk) c) por 
lo que se genera un fichero que pue¬ 
de ser «comprendido» por MINILISP. 

Si el fichero se abre en modo 
PROPS, es considerado como fiche¬ 
ro de salida y en él se escriben las 
propiedades de los identificadores 
que MINILISP conozca hasta el mo¬ 
mento. Estas propiedades se guar¬ 
dan en la forma (PUT td prop val) 
con lo que se genera un fichero que 
puede ser leído por MINIUSP. De es¬ 
ta forma se puede preservar el con¬ 
texto actual y reanudar posterior¬ 
mente la sesión desde el punto en el 
que se dejó. Para ello bastará hacer 
(OPEN '< nombren- 'INPUT) don¬ 
de < nombre + es el nombre del fi¬ 
chero [sin la extensión, ya que se 
asume .LIS]. 

El modo PRINTER sirve para man¬ 
dar la salida por pantalla también a 
la impresora. Además, si se abre al¬ 
gún fichero en los modos DEFS o 
PROPS, aquello que se escriba tam¬ 
bién en estos ficheros se manda a la 
impresora. 

La función CLOSE cierra el fichero 
que esté abierto con el modo espe¬ 
cificado por su parámetro. El valor 
del argumento debe ser INPUT, 
OUTPUT o PRINTER. Tiene como va¬ 
lor el de su argumento. 

La función CAT, que no tiene pa¬ 
rámetros, sirve para obtener un ca¬ 
tálogo del disco o la cinta. Si se está 
Utilizando cinta debe pulsarse la te¬ 
cla [ESC] para terminar el catálogo. 
Si se usa disco esto no es necesario. 


11. a Errores 


s áto- las definiciones d 
usuario que MIN 


ILISF 


MINILISP informa de dos tipos de 
errores: los producidos por él y los 
generados por Basic. De estos últi¬ 
mos sólo indica el número de error 
[estos números los puedes encontrar 
en el manual del ordenador]. Los 
errores producidos por Basic suelen 
ser errores numéricos [6, 11] o de es¬ 
pacio para cadenas lleno [14] si has 
utilizado identificadores excesiva¬ 
mente largos [se ha calculado que 
cada identificador ocupará en media 
8 caracteres], pero eventualmente es 
posible que aparezcan errores de 
ha producido algún fa- 

s errores generados por fallos 
ds Drogramas LISP están docu- 
con mensajes de error y 
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¡NOVEDAD! PARA AMSTRAD 464-664-6128-8256-8512 


MASTER-RENTA 

8512-14.900 
8256-14 900 
6128-14 900 


MASTERCOM 

8512-19 900 
8256-19 900 
6128-19 900 


MASTERGEST 

8512-14,900 
8256-14 900 
6128-14900 


MASTERBLOCK 

8512- 6 900 
8256- 6900 
6228- 6.900 
464 • 2.900 


Realiza las declaraciones de la Renta, tanto ordinarias como 
simplificadas, pudiendo cubrir los impresos oficiales o realizar 
un listado de los datos, tanto en pantalla como por impresora. 
Realiza todos los cálculos en 1 minuto. 

Gestor de efectos comerciales. Contempla descuentos de re¬ 
mesas mínimos, impagados, líquidos, límites de descuentos, etc. 
Por pantalla o por Impresora. Clasifica vencimientos, clientes, 
plazas y estudio de costes financieros de las remesas. 

Control de cuentas corrientes de bancos. Controla todos los 
movimientos realizados, ingresos, pagos, etc., pudiendo cono¬ 
cer el saldo en cualquier momento y en el formato del recibo 
del banco con el que esté trabajando en ese momento. Por 
pantalla o por impresora. Saldo general de todos los movimien¬ 
tos y todos los bancos, balance general. 

Agenda telefónica con directorio. Con búsquedas por Nom¬ 
bre, Dirección o Teléfonos. Imprime etiquetas para sobres. 


MASTERTEXT 

6128- 4 800 
464 ■ 3.800 


MASTERCOPY 

6128- 3 900 
464 - 2 900 


MASTERPROFE 1 

6128- 2.900 
464 - 1 900 


MASTERQH 

8512- 3 900 
8256- 3.900 
6128- 3.900 
464 - 2.500 
MSX - 2.900 


Utilizable en cualquier tipo de impresora, pudiendo seleccio¬ 
nar partes del texto en diversos modos de escritura: Subraya¬ 
do, alargado, cambiar márgenes, tabulaciones, insertar carac¬ 
teres o líneas, etc. 

Copiador de pantalla en cualquier tipo de impresora compa¬ 
tible con AMSTRAD. Trabaja los 3 modos de pantalla, pudlen- 
do elegir la zona'de pantalla a copiar. 

Programa educativo referente a figuras planas tales como 
triángulos, cuadrados, circunferencias, etc. y volúmenes tales 
como esferas, cilindros, pirámides, etc., explicando todas sus 
características. 

Control de carreras de caballos con pronósticos tanto Indivi¬ 
duales como conjuntos entre varios caballos. 

Base de datos 200 caballos y 300 carreras. 

TAMBIEN DISPONIBLE PARA MSX. 


MASTERBINGO Edita cartones, extracciones de bolas manual o automático, 

w- ?9oo listado de premios y comprobación. 

MASTER-RULETA Es tan real que usted se encuentra envuelto en el casino de 

Montecarlo. 

MASTERHOROSCOPO Su astrólogo particular: 

Calcula su tabla de nacimiento según la hora, fecha y lugar 
de nacimiento, dándole datos sobre su personalidad. 
Tendencias del futuro. 

Algoritmos verdaderos. 


MASTER-RELOJ Reloj programable con alarma. 

6128- 2.500 
464 - 1.500 


Buscamos distribuidores. 

Envíos contra reembolso a toda España. 



Centro Comercial Sto. Domingo 

Ctra. Burgos, km 28 

Algete (MADRID). Tel.: 622 12 89 
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DICCIONARIO RAPIDO DE FUNCIONES MINILISP 









ROCK N LUCHA 


Como experimentado mercenario cuidadosamente entrenado 
en las artes marciales, debes cumplir la misión que te ha sido 
encomendada: robar el disco que con la información de los re¬ 
beldes tiene el Gran Dictador. 


El primer juego de lucha libre hecho para ordenador. Más de 
25 movimientos diferentes te permitirán hacer todo tipo de lla¬ 
ves: desde la sujección de espaldas hasta la voltereta de hom¬ 
bros, pasando por los mismos programadores del legendario 
"Exploding Fist”. 


THE WAY OF THE TIGER 


Entra en el mudo de los samurais. Manten la calma mientras 
el movimiento y las rutinas de combate te transportan a nive¬ 
les que nunca pensaste posibles. Experimenta los sorprenden¬ 
tes efectos del "Triple Scioll" mientras intentas mejorar tus 
técnicas de lucha cuerpo a cuerpo, con espada samurai o con 
mil posibilidades más. 0 




















E't^K/u¿P ÍNGU5H 


PING-PONG 


La gran sorpresa. Gráficos increíbles, movimiento super-rápido, 
podrás efectuar las mismas jugadas que si tuvieras la paleta en 
tu mano. 

Botes, rebotes, efectos, dejadas, saques, cortadas, mates... todo 
es posible con esta maravilla llamada “Ping-Pong” 




DISTRIBUIDOR EXCLUÍ 
ERBE SO 
C/. STA. ENC 
28010 M 
TFNO.(91) 

DELEGACION 
AVDA. MISTF 
TFNO. (93) 


KNIGHT GAMES 


Un desafío medieval en tu ordenador. Transpórtate a la Edad 
Media y conviértete en caballero de la Mesa Redonda demos¬ 
trando tus habilidades en el torneo. Lucha a espada, ballesta, 
lanza, mazas, arco, hachas y con todas las armas propias de 
aquella fantástica época. 


FRANKIE GOES TO HOLYWOOD 

El juego de los juegos. El que fuera numero 1 indiscutible en 
Spectrum y Commodore. ahora disponible para Amstrad. 

Más de 10 juegos diferentes se encierran en “Frankie goes to 
Hollywood”, el programa más original que hayas visto. 
































RAMBO 


GÜNFRIGHT 

Ultímate nos ofrece para Amstrad, usando su técnica Filma- 
tion, “Gun-Fright”, el juego en el que el lejano oeste es el pro¬ 
tagonista. 

Ponte en el papel de Quikdraw, el sheriff que piensa librar la 
ciudad de todos los pistoleros a lomos de su buen caballo Pan¬ 
to. 


Toda la emoción del film, en tu ordenador. Siéntete como 
John Rambo en la jungla vietnamita e intenta salvar a tus 
compañeros prisioneros en el campo de concentración. 


Tu misión: vigilar y cuidar el cumplimiento de la leyque se ve 
amenazada por una terrible banda de delincuentes que han 
hecho del tráfico de narcóticos su negocio más rentable. 

Tus medios: un Lotus Turbo Sprit dotado de uno de los máxi¬ 
mos adelantos técnicos y con el que deberás patrullar por ca¬ 
lles y avenidas. 


BARCELONA, 
ÍAL, N.° 10. 
432 07 31 


!IV0 PARA ESPAÑA 
FTWARE 
iRACIA, 17 - 
ADRID, 

447 34 10 



Reubicador 

de Programas en C/M 



La REUBICACION de programas en código 
máquina se divide en dos partes. Primero uno 
tiene que escribir el programa en forma 
REUBICABLE. Entonces uno lo presenta al sistema 
con un cargador de REUBICAR, el cual se ocupa de 
colocar el nuevo código junto a cualquier memoria 
ya en uso, y deja el sistema tan poco cambiado 
como sea posible. 



reubica pon sí mismo tiene la marca 
de ser profesional. Una que no lo ha¬ 
ce es semi-profesional. Para nuestros 
propios usos en casa todos los pro¬ 
gramadores hacemos la reubicación 
en el momento de ENSAMBLAR: va¬ 
riando ORG simplemente. Pero es 
como usar una manivela para arran¬ 
car el coche en lugar de la batería. 
Reubicación es la batería de arran¬ 
que que quita los problemas en el 
momento de poner el sistema en 
marcha. No obstante, la reubicación 
es el toque final a un programa, y es 
lo suficientemente difícil (hablando 
del Z80) que no suele aplicarse has¬ 
ta que el programa esté en su forma 
definitiva. 


Rutinas en máquinas 
profesionales 


La rutina que transforma un pro¬ 
grama en reubicable se ve en el lis¬ 
tado de ensamblador. Es el mismo 
que hemos usado en el programa 
HOBBYCOP del número 27 de la re¬ 
vista, pero entonces figuraban sólo 
los bytes del código máquina. El uso 
de ORG 0 hace que todas las etique¬ 
tas generadas en la compilación son 
relativas al principio de la rutina. La 
llamada falsa al firmware fija el va¬ 
lor del PC (Program Counter) que se 


recupere del stack y se añade a las 
direcciones relativas necesarias en la 
manera mostrada. El uso de una lla¬ 
mada falsa para fijar PC, como a 
menudo pasa con programación del 
Z80, es un truco que una vez visto, 
no se olvida. 


Generación 
de la tabla 


¿Cómo se genera la tabla de reu¬ 
bicación? El programa HOJEA- 
MEN.TXT se presenta con su listado 
en el momento de ensamblar. Se ha 
usado GENA de Hisoft —un ensam¬ 
blador de dos pasos— que obliga a 
colocar la tabla de reubicación al fi¬ 
nal. Se ha usado mayúsculas para las 
etiquetas que representan nudos ló¬ 
gicos del programa. Minúsculas se 
usan para puntos de entrada desde 
el programa principal (p. e¡. Basic) 
y para las entradas en la tabla de 
reubicación. Estas últimas se ha da¬ 
do un número «qq» si corresponde a 
instrucciones de tres bytes, y «rr» si 
son de cuatro. Sus entradas corres¬ 
pondientes en la tabla son entonces 
qq +1 y rr + 2. No se reubica las ins¬ 
trucciones son saltos relativos: JR 
DJNZ, etc. Tampoco las llamadas al 
Jump Block (saltos) del firmware: en¬ 
tonces éstas se han dejado en forma 
numérica JP # BB33 en lugar de dar 
el nombre JP km.set.control. 

Después de preparar la tabla de 
reubicación al final del programa, 
hay que incluirlo en la rutina de reu¬ 
bicar con algo como el comando *F 
HOJEAMEM.TXT de GENA o incluir¬ 
lo directamente con un merge. Para 
los que usamos cassette, la segunda 
manera es la más fácil, siempre que 
la memoria lo permite. 


Ahora se ensambla todo. Con 
ORG 0 el código objeto hay que 
guardarlo en alguna otra parte de 
la memoria. GENA lo hace con op¬ 
ción 16. Toma nota de la longitud de 
la TABLE al final del programa. Esta 
longitud se pone ahora en la pseudo- 
instrucción «tabla: DEFS 76» — 76 
era la longitud para el ejemplo final, 
pasando los bytes de la «TABLE» a su 
nueva posición «tabla» para que no 
ocupen memoria indebidamente des¬ 
pués de ser usados. Serán tirados 
con la basura. Una manera de ha¬ 
cerlo se da al final de la rutina de 
reubicar. 


Programa HO JE AMEN 


Un ejemplo de un CARGADOR de 
reubicar se ve en el programa Basic 
en el cual el fichero binario del en¬ 
samblador ha sido pasado a código 
máquina en líneas DATA. Claro que 
si tiene el fichero en binario, no hay 
que teclear líneas 100-350 ni la su¬ 
brutina 2000 (2000-2999). En su lu¬ 
gar, linea 1007 se cambia a: 

1007 LOAD"hojeamen", h+1 

y el binario se carga en memoria más 
rápidamente. Si tecleos los DATA, 

usa MODE 2: el formato es de 64 ca¬ 
racteres por línea para ajustarse a la 
norma de tu revista, y si saltas un da¬ 
to será claro a simple vista. Hay un 
checksum al final de cada línea: un 
error se señala con el mensaje «Error 
en xxx» y las líneas de DATA listarán. 
No hace falta contar espacios: las 
identaciones (p. eje. líneas 
2010-2110) se usan para ayudar 
comprender la estrucutra de los bu¬ 
cles, y no necesitas seguirlas. Las ob¬ 
servaciones (REMs) que siguen al 
apostrofe (') pueden reemplazarse 
con un par de asteriscos ('**')• 

Si no tienes interés ahora mismo en 
usar la reubicación, teclea el progra¬ 
ma en Basic porque el resultado es 
una herramienta potente en abrir 
programas en binario, en seguir la 
disponibilidad de la memoria, en de¬ 
purar programas largos en Basic, 
etc. 
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*H Rutina de reubicar : Microhobby AMSTRAD Semanal 


ORG 0000 
GETLOC:EQU #BB21 
REUBIC:CALL GETLOC 
DEC SP 
DEC SP 
EX <SP),HL 
DEC HL 
DEC HL 
DEC HL 
INC SP 
INC SP 
PUSH HL 
LD DE,tabla-2 
ADD HL,DE 
POP BC 

REUB1 :LD E,<HL) 

INC HL 
LD D,íHL > 

INC HL 
LD A.D 
OR E 

JR Z.REUB2 
PUSH HL 
EX DE,HL 
ADD HL.BC 
PUSH HL 
LD E.(HL) 

INC HL 
LD D,<HL> 

EX DE,HL 
ADD HL,BC 
EX DE,HL 
POP HL 
LD < HL),E 
INC HL 
LD (HL).D 
POP HL 
JR REUB1 

REUB2 :JP keydef 

DEFW REUB2+1 
tabla :DEFS 76 
endtbl:DEFW 0 
DEFS 2 

»F HOJEAMEM.TXT 


;usar opción-16 con CENA 
¡llamada falsa al firmware 
¡pone PC*3 en el stack 


¡HL PC+3 original 


¡offset (constante de reubicar) 
¡SP restaurado 

¡tabla de reubicar estará aqui 

;BC=of f set 
¡empezar bucle 


¡saca una dirección de la tabla 

¡comprobar señal para fin de tabla 
;hecho 

¡puntero en la tabla 
;HL=dirección 

¡di rece ión*of fset 


;HL = < di rece ión*offset) 
¡offset añadido 

¡saca di receión*offset 
¡pokear el nuevo valor 


¡saca puntero en la tabla 
¡al bucle 

¡JP LOGRSX si es programa RSX ó RET 
¡comenzar ya la reubicación 
¡ó lo que sea, 76 en este ejemplo 
¡señal de fin de tabla 
¡zona de seguridad 


ASSEMBLE opción-16 {estilo GENA) 

SAVE fichero binario en cinta o disco 
LOAD este mismo fichero a, digamos. #5000 
1NTELL1GENT COPY bajo MONA {opción 1} 

Start: 5000*TABLE 
Last: 5000*zzzzzz-1 
To: 5000+tabla 

Save binario bajo MONA con opción write {opción w) 
Ñame: HOJEAMEM por ejemplo 
First: 5000 

Last: 5000*TABLE (no -TABLE-1 un error en MONA) 
Start: - 

Usar ajustándolo a h = himemory con LOAD a {h-TABLE) 
Tirar la basura de reubicación moviendo el puntero 

de memoria arriba hasta {h-TABLE*entryl. 
Versión: 7.i i.86 


La rutina capta-error 5000 es un 
intento de dejar SYMBOL AFTER de 
BAsic en su estado original. Se nota 
que la memoria tira hacia arriba otra 
vez en 3000 después de la reubica¬ 
ción. 


¡Listing HOJEAMEN.BAS 


El programa que ahora tienes, 
HOJEAMEN.BAS, es diseñado a ser 
cargado cuando se enciende la má¬ 
quina. Deja dos nuevas teclas de fun¬ 


ción: CTRL/ [.]-numérico te permite 
hojear por la RAM, y CTRL/ENTER- 
grande (o CTRL/RETURN estilo 128) 
te devuelve cuando lo quieres tu 
pantalla que estabas usando antes 
(INKs PAPER PEN BORDER MODE). 
Están asignados los números 
158/159, los más altos posibles, pa¬ 
ra no molestar a otros programas 
que se puedan usar después. Las ru¬ 
tinas están disponibles como teclas 
y no como RSX porque son de uso en 
modo comando y no en tiempo de 
ejecución. 



Ahora pulsa CTRL [.j-numérico. Di¬ 
rección de comienzo: ENTER, y em¬ 
pieza en el 0000 por defecto. Estas 
son las celdas de la memoria. Es tan 
rápida la pantalla, que hay una pau¬ 
sa de dos segundos al final de cada 
página. Cuando se aburre de ver 
RAM vacía, pulsa una tecla y se pa¬ 
rará. Ahora dirección de comienzo: 
&b446 y pulsa una tecla para parar¬ 
lo ya. Lo que se ve es el buffer de las 
teclas de función con RUN", nues¬ 
tros CALL &XXXX, etc. (En modelos 
más modernos que el nuestro, pue¬ 
de ser que la dirección no es exacta¬ 
mente &B446, pero estará cercana.) 

Cuando quieres, pulsa ESC una 
vez para volver a Basic. ¡Qué boni¬ 
to! ¿Verdad? Si tienes impresora, 
puedes sacar lo que ves a papel 
usando nuestro RSX COPY de hace 
unas pocas semanas. (Era también 
reubicable.) Ahora pulsa 
CTRL/ENTER-grande y ¡voila! 

No hay que quitar estas cosas de 
la máquina. Están allí para usarse 
con otros programas. Por ejemplo, 
estás tecleando un programa largo 
en Basic y algo no funciona. Hojea 
la memoria baja hasta que veas el fi¬ 
nal del Basic. Entonces se ve como 
Basic apila los variables al final de sí 
mismo durante la ejecución. Y se ve 
"COUNT. SWAP..." y muy cercana 
"COUNT. SUAP..." ¡Ajá! Un peque¬ 
ño error de ortografía inglesa. 

Vas a encontrar la función 
CTRL/ENTER-grande muy útil. Mu¬ 
chas veces nos encontramos con una 
pantalla ilegible. Tocamos esta tecla, 
y otra vez tenemos la pantalla del 
momento en que hicimos la última 
llamada a HOJEAMEN. Diviértete. 
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007F 

0082 

0084 

0086 

0087 

0089 

008B 

008E 

008F 

0091 

0094 

0097 

00AC 

OOAF 

OOBO 

OOCO 

00D1 

00D6 

00D7 

OOEA 

OOED 

0103 

0104 

0108 


3ADC00 

EE24 

FE4C 

CO 

069F 

3E12 

CD33BB 

05 

3E07 

C333BB 

CFCFA4 

31393836 

0D12FF 

07 

496E7075 

64652063 

08080808 

OC 

4D696372 

CFCFCF 

20707269 

FF 

20CFCFCF 

20756C74 


*L♦ HOJEAMEM Alustrad Semanal iFeb86 
;hojear memoria Ctrl/num.pad l.J 
;reponer inks.mode.paper,burder,etc. 

= Ctrl/ENTER (RETURN) 
LD A.(D1RMES+6) 

XOR 36 
CP "L" 

RET NZ 
LD B.159 
LD A.18 
CALL #BB33 
DEC B 
1.D A. 7 
JP #BB33 
DEFB 207.207,164 
DEFM "1986 Hobby Press S.A." 
DEFB 13,18.#FF 
DEFB 7 

DEFM "Input dirección " 

DEFM "de comienzo 8...." 

DEFB 8.8.8,8,#FF 
DEFB 12 

DEFM "Mícrohobby Amstrad " 

DEFB 207.207.207 
DEFM ” primera dirección = 8" 
DEFB #FF 

DEFB 32.207.207.207 
DEFM " ultima esta pagina = 8" 


5 keydef: 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 entry: 

16 

17 ASKDRl: 

18 ASKDIR: 

19 

20 
21 

22 DIRMES: 

23 

24 

25 

26 

27 DIRMS2: 

28 


011F 

FF 

29 

DEFB 

#FF 

0120 

0123 

D90AFF 

30 DIRMS3: 

31 DIRECC: 

DEFB 

DEFS 

217.10.#FF 

2 

0125 

00 

32 USFLAG: 

DEFB 

0 

0126 

0D1C20 

33 USDATA: 

DEFB 

13.28.32 

0129 

0B0B1C01 

34 USINKO: 

DEFB 

11,11,28.1 

012D 

202004 

35 USINK1: 

DEFB 

32.32.4 

0130 

021D 

36 USMOD: 

DEFB 

2,29 

0132 

OBOBOE 

37 USBOR: 

DEFB 

11.11.14 

0135 

200F 

38 USPAP: 

DEFB 

32. 15 

0137 

010DFF 

39 USPEN: 

DEFB 

1,13.#FF 

013A 

0D1C20 

40 BRDATA: 

DEFB 

13,28.32 

013D 

0B0B1C01 

41 brinkO: 

DEFB 

11.11,28.1 

0141 

20200402 

42 brinkl: 

DEFB 

32.32.4.2,29 

0146 

014F 

0B0B0E20 

43 brbor: 

44 reí nic: 

DEFB 

11.11.14.32.15 

014F 

AF 

45 

XOR 

A 

0150 

322501 

46 qq 1: 

LD 

(USFLAG).A 

0153 

212601 

47 qq2: 

LD 

HL . USCÍATA 

0156 

0159 

C3F501 

48 qq3: 

49 browse: 

JP 

PRTTXT 

0159 

3A2501 

50 

LD 

A.< USFLAG > 

015C 

B7 

51 

OR 

A 

015D 

2036 

52 

JR 

NZ.BROWSl 

015F 

CD93BB 

53 

CALL 

#BB93 

0162 

323701 

54 qq4: 

LD 

(USPEN).A 

0165 

CD99BB 

55 

CALL 

#BB99 
(USPAP).A 

0168 

323501 

56 qq5: 

LD 

016B 

CD11BC 

57 

CALL 

#BC 11 

016E 

323001 

58 qq6: 

LD 

(USMOD >.A 

017L 

AF 

59 

XOR 

A 

0172 

CD35BC 

60 

CALL 

#BC35 

0175 

ED432901 

61 rrl: 

LD 

(USINKO).BC 

0179 

3E01 

62 

LD 

A. 1 

017B 

322501 

63 qq7: 

LD 

(USFLAG >.A 

017E 

CD35BC 

64 

CALL 

#BC35 

0181 

ED432D01 

65 rr2: 

LD 

(USINK1>.BC 

0185 

CD3BBC 

66 

CALL 

#BC3B 

0188 

ED433201 

67 rr3: 

LD 

(USBOR).BC 

018C 

213A01 

68 qq8: 

LD 

HL.BRDATA 

018F 

CD19BD 

69 

CALL 

#BD19 

0192 

CDF501 

70 qq9: 

CALL 

PRTTXT 

0195 

21AC00 

71 BROWSl: 

LD 

HL.ASKDRl 

0198 

CDF501 

72 qq10: 

CALL 

PRTTXT 

019B 

CD81BB 

73 

CALL 

#BB81 

019E 

CDFF01 

74 BROWS6: 

CALL 

KFLUSH 

01 Al 

21AF00 

75 qql1: 

LD 

HL.ASKDIR 

01A4 

CDF501 

76 qql2: 

CALL 

. PRTTXT 

01A7 

0604 

77 

LD 

B. 4 

01A9 

210000 

78 

LD 

HL.O 

01AC 

222301 

79 qq13: 

LD 

(DIRECC).HL 

01AF 

212301 

80 qql4: 

LD 

HL.DIRECC 

01B2 

CD06BB 

81 INPHEX 

: CALL #BB06 

01B5 

FEFC 

82 

CP 

#FC 

01B7 

2839 

83 

JR 

Z.BROWS5 




01B9 
01BB 
01BD 
01C0 
01C2 
01C5 
01C9 
O ICC 
O 1CF 
01D1 
01D3 
01D4 
01D5 


FEOD 
2805 
CD0802 
20F0 
CDFF01 
ED5B2301 
CD84BB 
CD2902 
0E07 
06F0 
1A 
C5 
D5 


84 

85 

86 qql5: 

87 

88 INPHXl: 

89 rr4: 

90 BR0WS2: 

91 qql6: 

92 

93 BROWS4: 

94 BROWS3: 

95 


96 PUSH 


CP 13 
JR Z,INPHXl 
CALL ASC2HL 
JR NZ.INPHEX 
CALL KFLUSH 
LD DE,(DIRECC) 
CALL #BB84 
CALL DIROUT 
LD C, 7 

LD B,240 

LD A,< DE > 

PUSH BC 
PUSH DE 


01D6 
01D9 
OIDA 
01DB 
01DC 
O IDE 
01DF 
01E1 
01E4 
01E6 
01E9 
01EC 
01EE 
01F0 
01F2 
01F5 
01F5 
01F6 
01F7 
01F9 
01FA 
01FD 
01FF 
0201 
0204 
0205 
0207 
0208 
0209 
020B 
020D 
020F 


CD5DBB 

97 

CALL 

#BB5D 

DI 

98 


POP 

DE 

C1 

99 


POP 

BC 

13 

100 


INC 

DE 

10F5 

101 


DJNZ 

BROWS3 

OD 

102 


DEC 

C 

20F0 

103 


JR 

NZ.BROWS4 

CD81BB 

104 


CALL 

#BB81 

3EC8 

105 


LD 

A. 200 

CD6702 

106 

qQ 17: 

CALL 

CDELAY 

CD1BBB 

107 


CALL 

#BB1 B 

30DB 

108 


JR 

NC.BR0WS2 

FEFC 

109 


CP 

#FC 

20 AC 

110 


JR, 

NZ.BR0WS6 

21AC00 

11 1 

BROWS5: 

LD 

HL,ASKDRl 


112 

PRTTXT: 



7E 

113 


LD 

A.(HL) 

23 

114 


INC 

HL 

FEFF 

1 15 


CP 

#FF 

C8 

1 16 


RET 

Z 

CD5ABB 

117 


CALL 

#BB5A 

18F6 

118 


JR 

PRTTXT 

0600 

119 

KFLUSH: 

LD 

B, 0 

CD09BB 

120 

KFL1: 

CALL 

#BB09 

DO 

121 


RET 

NC 

10FA 

122 


DJNZ 

KFL1 

C9 

123 


RET 


4F 

124 

ASC2HL: 

LD 

C. A 

FE61 

125 


CP 

"a" 

3802 

126 


JR 

C.ASCHLl 

D620 

127 


SUB 

#20 

D630 

128 

ASCHL.1 : 

SUB 

"0" 


021 1 

D8 

129 


RET 

C 

0212 

FEOA 

130 


CP 

10 

0214 

3808 

131 


IR 

C.ASCHL2 

0216 

D607 

132 


SUB 

7 

0218 

FEOA 

133 


CP 

10 

1121 A 

D8 

134 


RET 

C 

021 B 

FE 10 

135 


CP 

16 

02 ID 

DO 

136 


RET 

NC 

021E 

ED6F 

137 

ASCHL2: 

Rl.D 


0220 

23 

i 38 


INC 

HL 

0221 

ED6F 

139 


RLD 


0223 

2B 

140 


DEC 

HL 

0224 

79 

141 


LD 

A.C 

0225 

05 

142 


DFC 

B 

0226 

C35ABB 

143 


JP 

#BB5A 

0229 

21D600 

144 

DIROUT: 

LD 

HL.DIRMES 

022C 

CDF501 

145 

qql8: 

CALL 

PRTTXT 

022F 

4A 

146 


LD 

C. D 

0230 

CD4F02 

147 

qqi 9: 

CALL 

CHEXPT 

0233 

4B 

148 


LD 

C.E 

0234 

CD4F02 

149 

qq20: 

CALL 

CHEXPT 

0237 

210401 

150 

qq 21 : 

LD 

HL.DIRMS2 

023A 

CDF501 

151 

qq30 : 

CALL 

PRTTXT 

023D 

218F06 

152 


LD 

HL.240*7 1 

0240 

19 

153 


ADD 

HL. DE 

0241 

4C 

154 


LD 

C.H 

0242 

CD4F02 

155 

qq3 1 : 

CALL 

CHEXPT 

0245 

4D 

156 


LD 

C.L 

0246 

CD4F02 

157 

qq32: 

CALL 

CHEXPT 

0249 

212001 

158 

qq33 : 

LD 

HL.DIRMS3 

024C 

C3F501 

159 

qq22: 

JP 

PRTTXT 

024F 

79 

160 

CHEXPT: 

LD 

A.C 

0250 

E6F0 

161 


AND 

#F0 

0252 

OF 

162 


RRCA 


0253 

OF 

163 


RRCA 


0254 

OF 

164 


RRCA 


0255 

OF 

165 


RRCA 


0256 

CD5C02 

166 

qq23: 

CALL 

NASCII 

0259 

79 

167 


LD 

A.C 

025A 

E60F 

168 


AND 

#0F 

025C 

FEOA 

169 

NASC1I: 

CP 

10 

025E 

3802 

170 


JR 

C.NAS1 

0260 

C607 

171 


ADD 

A,7 

0262 

C630 

172 

NAS1 : 

ADD 

A, "0" 

0264 

C35ABB 

173 


JP 

#BB5A 

0267 

01D809 

174 

CDELAY: 

LD 

BC.2520 

026A 

OD 

175 

CDLAY1: 

DEC 

C 

026B 

20FD 

176 


JR 

NZ.CDLAY1 

026D 

05 

177 


DEC 

B 

026E 

20FA 

178 


JR 

NZ.CDLAY1 

0270 

3D 

179 


DEC 

A 

0271 

20F4 

180 


JR 

NZ.CDELAY 

0273 

C9 

181 


RET 


0274 

80005101 

182 

TABLE: 

DEFW 

keydef♦l. q< 

027C 

5A016301 

183 


DEFW 

browse*1.q< 

0284 

77017C01 

184 


DEFW 

rrl*2.qq7♦ 

028C 

8D019301 

185 


DEFW 

qq8*1.qq9* 

0294 

9F01A201 

186 


DEFW 

BROWS6*1.q* 

029C 

B001BE01 

187 


DEFW 

qql4* 1 .qql! 

02A4 

CD01E701 

188 


DEFW 

qql6+ 1 .qql' 

02AA 

2A022D02 

189 


DEFW 

DIROUT*1,q< 

02B2 

38024D02 * 

190 


DEFW 

qq21*1,qq2: 

02B8 

3B024302 

191 


DEFW 

qq30*1.qq3 




*2.rr3*2 
WS1*1.qq10*1 
.qql 2*1,qq13‘1 
NPHX 1♦l .rr4 *2 


* 1,qq23*l 


♦ 1.qq33*1 


192 zzzzzz: 

193 


Pass 2 errors: 00 
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100 
1 10 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
1000 
1001 
1002 
1003 

1005 

1006 

1007 

1008 

1009 

1010 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 

2999 

3000 
3040 
3045 
3050 
3060 
3065 
3070 
3090 
3100 
3110 
3120 
3130 
4000 
4010 
4020 

5000 

5001 


DATA CD21BB3B3BE32B2B2B3333E5112D0019C15E2356237AB328110846 
DATA E5EB09E55E2356EB09EBE1732372E118E7C37F002B008000510B7B 
DATA 01540157015A01630169016F0177017C0183018A018D019301056D 
DATA 960199019F01A201A501AD01B001BE01C301C701CD01E701F3096D 
DATA 012A022D023102350238024D0257023B02430247024A02000002BF 
DATA 00003ADC00EE24FE4CC0069F3E12CD33BB053E07C333BBCFCF0A7B 
DATA A43139383620486F62627920507265737320532E412E0D12FF07EB 
DATA 07496E70757420646972656363696F6E20646520636F6D696508FD 
DATA 6E7A6F20262E2E2E2E08080808FF0C4D6963726F686F626279078E 
DATA 20416D737472616420CFCFCF207072696D65726120646972650A4D 
DATA 6363696F6E203D2026FF20CFCFCF20756C74696D61206573740A53 
DATA 6120706167696E61203D2026FFD90AFF0000000D1C200B0B1C06F0 
DATA 01202004021D0B0B0E200F010DFF0D1C200B0B1C01202004020286 
DATA 1D0B0B0E200F010D07FFAF322501212601C3F5013A2501B72005C3 
DATA 36CD93BB323701CD99BB323501CD11BC323001AFCD35BCED430ADE 
DATA 29013E01322501CD35BCED432D01CD3BBCED433201213A01CD082D 
DATA 19BDCDF50121AC00CDF501CD81BBCDFF0121AF00CDF50106040B9C 
DATA 210000222301212301CD06BBFEFC2839FE0D2805CD080220F007B4 
DATA CDFF01ED5B2301CD84BBCD29020E0706F01AC5D5CD5DBBD1C10C73 
DATA 1310F50D20F0CD81BB3EC8CD6702CD1BBB30DBFEFC20AC21AC0CBB 
DATA 007E23FEFFC8CD5ABB18F60600CD09BBD010FAC94FFE6138020C78 
DATA D620D630D8FE0A3808D607FE0AD8FE10D0ED6F23ED6F2B79050C3B 
DATA C35ABB21D600CDF5014ACD4F024BCD4F02210401CDF501218F09FC 
DATA 06194CCD4F024DCD4F02212001C3F50179E6F00F0F0F0FCD5C08A3 
DATA 0279E60FFE0A3802C607C630C35ABB01D8090D20FD0520FA3D09B5 
DATA 20F4C901DD 

endit=&274:entry=&94' longitud de codigo/long. de basura 
hojea=&l59:vuelta=&14F 
ON ERROR GOTO 4000 

sym=256:GOSUB 5000' tratamiento del svmbol buffer 

h=HIMEM-endit 
MEMORY HIMEM-endit 

direc=h:GOSUB 2000' cargador 

'si ya hay el binario, sustituir: 1007 LOAD”hojeamem",h+i 
CALL h+ 1 

GOTO 3000' fin 


' rutina carga datos con checksum 

FOR 1 inea=100 TO 350 STEP 10 
READ postizos 

check.sum=VAL<”&”+RlGHT$(postizo$,4)) 

FOR puntero=l TO LEN(postÍZO$)-5 STEP 2 
dummy = VAL("&"+MlD$(postizo$,puntero,2)) 
check.sum=check.sum-dummy 
direc=direc+i 
POKE direc,dummy 
NEXT puntero 

IF check.surnO0 GOTO 4020 
NEXT linea 

' sitio para acomodación propia 

' etc 

RETURN 

MEMORY HIMEM+entry:sym=240:GOSUB 5000’ reponer user-symbols 
a$="CALL &":b$=HEX$(h+l+hojea,4>:c$=CHR$<13) 

KEY 158,c$*a$+b$+c$ 

PRINT"Hojear la memoria RAM con"TAB(3)a$+b$ 
b$=HEX$(h+l+vuelta,4) 

KEY 159,c$+a$+b$+c$ 

PRINT"Vuelta a colores de antes con"TAB(3)a$+b$ 

PRINT 

PRINT"CTRL + (.) del bloque numérico = HOJEAR 
PRINT"CTRL + (ENTER grande o RETURN) = VUELTA 
PRINT 

NEW' prog HOJEAMEM Microhobby Amstrad Semanal 

IF ERROpermi t . error THEN PRINT"**** Error ****":STOP 
RESUME NEXT 

MODE 2:PRINT CHR$(7)"Error en"1 inea:LIST-999’Dr.RAC badajoz 
permit.error=5:SYMBOL AFTER svm' rutina para manejar 

permit.error=0 : RETURN’ el buffer de los.svmbols 
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)ffWARE de 



r i 



PASCAL 80 
npilador Pase 



Versión completa del 
famoso C-Hisoft para CP/M. 
Capacidades de E/S, ficheros 
aleatorios y modos de acceso 
binario y ASCII. Incluye 
editor ED 80 compatible 


^WORDSTAR. 

15.000 

ED 80: Editor Configurable DtaS. 
GEN 80: Macros, inclusión en\* ' 
disco, ensamblador condicional 
manipulación bit a bit. MON 80: 
Monitor y debugger, puntos 
de ruptura y presentación 
\de memoria 


MODULA-2 
Comp. Modula -2 


Implementación total del 
lenguaje MODULA-2 para 
CP/M. Compilador en un 
único paso, listo para ser 
linkado. 


Especial para Z-80. Deja el 
programa fuente en un 
programa directamente 
ejecutable. Incluye ED 80, 
editor compatible con 
M3RDSTAR. 


15.000 

v P taS U 


Permite trabajo directo 
sobre disco, bien en 
hexadecimal o ASCII, recupera 
ficheros perdidos o borrados, 
alterar y/o proteger 
directorios, todo Dajo 
. AMSDOS y CP/M. 


Diseñado específicamente 
para AMSTRAD. Incluye 
THE WAND, creador de menús 
de programas. 


7.900 

ptasy 


15.000 
)tas* 


POLYPRINT 

Multitipos 


Transforme su impresora 
en una imprenta. Permite la 
impresión en 8 tipos distintos 
de letras; configurable para 
cualquier impresora. 


19.900 
)tas u 


Añade a la potencia del 
programa POLYPRINT 8 
juegos adicionales de impresión 
a los ya existentes. 


7.900 

ptas y 


Residente en memoria, sin 
interferir en su programa 
principal le ofrece: Calculadora 
(Hex-Dec), Block de notas y 
teléfonos. Calendario, 
Directorios, etc... 


Permite realizar gráficos 
sofisticados en su impresora 
Gráficos de pastel, histogramas 
comparativos, gráficos de lineas. 
Imágenes de 980 PIXELS de 
densidad. 


.*11.900 
ptas. 


Sencillo sistema de 
MAIL-MERGE. Idóneo 
producir circulares. Incluye 
editor. Permite la realización 
de etiquetas autoadhesivas.^ 


pa 

lü' 


s* 9 . 9 oo 11.900 

ntnc / Asigna a cada disco un \ n * a c 
[JldSy/ número de serie y además \r j 
indexa y cataloga los ficheros 
en ese disco. 


<*11.900 
ptas y 


DRAUGHTS 
MAN II 


Nueva versión mejorada y 
compatible con nuestra 
tableta GRAFPAD II: Gran 
capacidad en gráficos. 


Módulo de textos, 
preparado para ser 
empleado con nuestro lápiz 
óptico ESP o con las teclas de 
cursor. 


*10.900 
ptas.. 


Explore las enormes 
capacidades del procesador 
de textos NEWWORD; guiado 
desde los fundamentos del 
proceso de textos. 


8.900 

ptas^ 


Dos cintas audio con 
instrucciones claras para 
aprendizaje y apoyo al manual 
del tratamiento de textos 
LOSOSCRIPT. 


6.900 

ptas. 


Curso de iniciación a los 
teclados, recomendado para 
personas no acostumbradas a 
su uso. 


7.000 

ptas.. 


Conozca a fondo las 
posibilidades del teclado 
escribiendo con sus diez dedos 
en lugar de sólo dos. 


3.000 

ptas. 


6.200 

ptas.. 


.los 4 juntos- 
'23.800 ptas. 


9.900 

ptasy 



IVA 
no 

incluido 


9.900 

>tas.„ 



DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 

Si Vd. tiene alguna dificultad para obtener los programas, puede dirigirse a: 

Avda. Isabel II, 16 - 8 Q 
Tels. 455544 - 455533 

Informática 20011 SAN SEBASTIAN 

CONDICIONES ESPECIALES PARA DISTRIBUIDORES 
EDITOR Y DISTRIBUIDOR EXCLUSIVO PARA ESPAÑA 


Si Vd. tiene alguna diticultaú | 

Ofites 


















Ofites Informática 

Presenta: * j 


el lápiz al que gusta decir 3 
mientras nuestros competidores dicen no 

UNICO PARA AMSTRAD, CON PRECISION PIXEL 



DEBIDO A LA FALTA DE ESPACIO NO PODEMOS LISTAR LAS OTRAS 

40 FUNCIONES MAS QUE NUESTRO LAPIZ ES CAPAZ DE HACER. 


Ofites 

Informática 


(IVA no incluido) 


ESTOS SON 
ALGUNOS EJEMPLOS 
DE LOS GRAFICOS QUE VD. 
PODRA REALIZAR CON NUESTRO 
LAPIZ OPTICO 



FUNCIONES 

ESP 

dk'tronics 

OTROS 


UNICO MENU DE PANTALLA 

SI 

NO 



ARRASTRE OBJETOS PANTALLA 

SI 

NO 



TRASLADO OBJETOS PANTALLA 

SI 

NO 



TRASLADO DE CURSOR 

SI 

NO 



CAJAS ELASTICAS 

SI 

SI 



LINEA ELASTICA 

SI 

SI 



TRIANGULO ELASTICO 

SI 

NO 



ELIPSE ELASTICO 

SI 

NO 



DIAMANTE ELASTICO 

SI 

NO 



POLIGONO ELASTICO 

SI 

NO 



HEXAGONO ELASTICO 

SI 

NO 



OCTOGONO ELASTICO 

SI 

NO 

A 


CUBO ELASTICO 

SI 

NO 



PIRAMIDE ELASTICA 

SI 

NO 



CIRCUNFERENCIAS 

SI 

SI 



CIRCULOS RELLENOS 

SI 

NO 



CAJAS RELLENAS 

SI 

NO 



ELIPSES RELLENAS 

SI 

NO 

o 


CUNAS 

SI 

NO 

ex 


SIMULADOR DE CORTES 

SI 

NO 

— — 


DISEÑO DE ZOOM 

SI 

SI 

C/3 

_o 


IMAGEN ESPEJO E INVERTIDA 

SI 

NO 

G 


FONDO DE REFERENCIA 

SI 

NO 

“ o - 

REJILLA DE FONDO 

SI 

NO 

~ C — 


OPCION DISPLAY X. Y 

SI 

NO 

~ 8 “ 


RELLENADO CON COLOR 

SI 

SI 

<L> 


LAVADO DE COLOR 

SI 

NO 



VOLCADO PANTALLA RESIDENTE 

SI 

NO 

- Qh — 

_ S 


DIBUJO DE BORDES EN 3 D 

SI 

NO 

O 


TEXTO 

SI 

SI 

_U “ 


9 TAMAÑOS DE BROCHA 

SI 

NO 



18 TOBERAS MOSTRADORAS 

SI 

NO 



4 MEZCLAS BASICAS 

SI 

NO 



VARIADOR DE MEZCLAS 

SI 

NO 



SOMBREADO DE MEZCLAS XOR 

SI 

NO 



FICHERO ICONOS RESIDENTES 

SI 

NO 



FICHERO RELLENOS RESIDENTES 

SI 

NO 



26 COLORES DE PAPEL 

SI 

NO 



PALETA DE 15 TONOS DE COLOR 

SI 

NO 



POSICIONAMIENTO DE PUNTO 

SI 

SI 



RAYOS DESDE UN PUNTO FIJO 

SI 

NO 



DIBUJO REFLEJADO ÍESPEJO) 

SI 

NO 



FUNCION HOME 

SI 

NO 



CONTROL DESDE TECLADO 

SI 

SI 



CONTROL CON JOYSTICK 

SI 

NO 



DISPONIBLES MODOS 1 Y 2 

SI 

? 


















































































FlDICON 

En los últimos años el concepto de programa ha derivado al 
de paquete Integrado. Nuestro Amstrad tiene capacidad y 
potencia para soportar uno de estos paauete, pero el precio 
prohibitivo de éstos nos l a obligado a nacernos el nuestro. 



do hacemos RUN «FIDICÓN» em¬ 
piezan las sorpresas, nos pregunta: 
«¿QUE PROGRAMA DESEA UTILI¬ 
ZAR?» (!) Apareciendo cuatro opcio¬ 
nes. La cuarta opción nos resulta fa¬ 
miliar «FIN DE OPERACIONES», cui¬ 
dado con ella, no pide confirmación. 
Pero, y las otras tres. Son los progra¬ 
mas que hemos cargado en nuestro 
Amstrad, cuando elegimos uno de 
los tres los otros dos actúan como su¬ 
brutinas de éste, así podemos man¬ 
tenerlos en memoria sin que uno bo¬ 
rre a otro. Desventaja quienes traba¬ 
jen con cinta tardarán más tiempo en 
cargar, por lo que es recomendable 
que las rutinas que definen a uno y 
otro programa las graben en otra 
cinta y hagan un margen con la que 
vayan a utilizar. 

Prosigamos, tras elegir un progra¬ 
ma nos encontraremos con la des¬ 
cripción del formato utilizado por el 
programa y algunas observaciones. 
Tras esto responderemos a las si¬ 
guientes cuestiones con «D» o «C» y 
al número de registros, de acuerdo 
con el número de éstos que vamos a 
tratar. Si ponemos de menos tendre¬ 
mos que grabar el fichero y redimen- 
sionar el programa. 

Nos encontramos ahora con un 
menú con opciones que nos son fa¬ 
miliares, CARGAR FICHERO, elegida 
esta opción se nos preguntará si que¬ 
remos ver el catálogo del disco. En 
todo momento sabremos qué regis¬ 
tro se está cargando, una vez finali¬ 
zada la carga volveremos al menú 
principal. 

CREAR FICHERO, ¡remos rellenan¬ 
do los campos, cuidando de no so¬ 
brepasar el número de caracteres 
definidos, pues aparecerá recortado 
al listarlo. Introduciremos «*» para 
salir. 


CONSULTAR 0 LISTAR FICHERO, 

nos hará nuevamente preguntas, y 
dispondremos de una opción que do¬ 
ta de gran potencia al programa, 
«BUSQUEDA POR ABREVIATURA?», 

con esta opción dispondremos de la 
posibilidad de listar todos los Fernán¬ 
dez o García que haya en nuestro 
dietario, o todas las compras del mes 
de marzo, si habíamos seguido la re¬ 
comendación del programa de dar 
la fecha de la forma MM (mes)/DD 
(día)/AA (a/o), pidiendo el listado 
por la clave «MM» o las compras de 
un día del mes introduciendo 
«MM/DD», practique con esta op¬ 
ción. 

Una vez que hemos respondido to¬ 
das las cuestiones nos aparecerá el 
listado por pantalla o impresora y en 
el monitor aparecerá una ventana 
con unas opciones: RETORNO MENU, 
NUEVO REGISTRO: nos permite intro- 
docir nuevos registros a partir de la 
posición que le indiquemos, borran¬ 
do los que haya debajo, si los hay, 
por medio del teclado o realizando 
un merge desde cinta o disco. 
BAJAS, introduciremos la posición 
del registro a borrar y el programa 
se encargará de compactar el fiche¬ 
ro evitando así que queden huecos. 
BAJAS, introduciremos la posición 
del registro a borrar y el programa 
se encargará de compactar el fiche¬ 
ro evitando así que queden huecos. 
MODIFICAR, nos pedirá la posición 
del registro a modificar, y la del cam¬ 
po, tras la modificación en el progra¬ 
ma contabilidad se actualizará el 
campo saldo si fuera necesario mos¬ 
trando un listado por pantalla o im¬ 
presora. 

PAG. ANT. vuelve atrás una página, 
para evitar tener que introducir de 
nuevo las opciones que los seleccio¬ 
naron. 

CONTINUA, sigue adelante con el lis¬ 
tado tanto por pantalla como por im¬ 
presora. 

De nuevo en el menú principal, la 
siguiente opción es ORDENAR POR 
CLAVES, una vez elegida la clave, el 
programa nos indicará constante¬ 
mente de cuántos registros van orde- 
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nados y cuántos faltan por ordenar, 
regresando luego al menú principal. 
SALVAR FICHERO, de la misma forma 
nos indicará los registros salvados. 

REGRESAR MENU DE PROGRAMAS, 

pide confirmación ya que repondien- 
do que sí, borraremos el fichero en 
memoria. 


BORRAR FICHERO DE MEMORIA, al 

igual que la anterior debe manejar¬ 
se con cuidado. 

Los ficheros creados por el progra¬ 
ma dietario, pueden ser tratados por 
el programa contabilidad, lo cual 
nos facilitará obtener el saldo de un 
período de trabajo. 


10 MODE 1:INK 0,0:PAPER 0:CLS:INK 

1150 PRINT:PRINT" 

2 . 

CREAR FI 

1,10:PEN 1:BORDER 0 

20 •’ ******************************* 

CHERO" 

1160 PRINT:PRINT" 

3. 

CONSULTA 

****************************** 

30 ******* programmed by JOSE 

R 0 LISTAR FICHERO" 
1170 PRINT:PRINT" 

4. 

ORDENAR 

TORO 21-2-86 ******* 

40 * ****** 

POR CLAVES" 

1180 PRINT:PRINT" 

5. 

SALVAR F 

******* 

50 ******* realizado sobre un cpc-4 

ICHERO" 

1190 PRINT:PRINT" 

6 . 

REGRESAR 

64 para AMSTAD SEMANAL ******* 

60 ******* 

MENU DE PROGRAMAS" 
1200 PRINT:PRINT" 

7. 

BORRAR F 

******* 

70 ******* compatible 464,47 

ICHERO DEL DISCO" 

1205 PRINT:PRINT" 

8 . 

BORRAR F 


2,664,6128 ******* 

80 ******************************** 
****************************** 

90 CALL ?<BB9C: LOCATE 1,8:PRINT SPAC 
E* (40) : LOCATE 1,1 6:PRINT SPACE*<40) 
100 CALL &BB9C 

110 LOCATE 17, 11; PRI NT " FIDI CON" : LOC 
ATE 10,1 4:PRI NT"PRQGRAMMED BY JOSE 
TORO" 

120 FOR U=1 TO 1000:NEXT 
130 CLEAR: MODE 2 : INK 0,27:INK 1,3: 
PEN 1: PAPER 0:BORDER 0:CLS 
140 * <<<<<<<<<<<<<<<F IDICON=FICHERO 
+DIETARIO+CONTABILIDAD >>>>>>>>>>>> 
>»» 

150 ’ ********************* ELECCION 
DE PROGRAMA ********************** 

160 MODE 2 : SOUND 1,20,30,5,O 

170 LOCATE 8 , 20 : PR I NT" QUE PROGRAMA 

DESEA UTILIZAR:" 

180 LOCATE 30, 2 :F‘RI NT "OPCIONES": LOC 
ATE 30,3:PRINT"========" 

190 LOCATE 18,5:PRINT"1 . FICHERO DE 
ACCESO MULTIPLE" 

200 LOCATE 18,8:PRINT"2. DIETARIO" 
210 LOCATE 18, 11: PRINT"3. CONTABILI 
DAD" 

220 LOCATE 18, 14: PRINT"4. FINALIZAR 
OPERACIONES" 

230 LOCATE 38,20:CLEAR:prog*="" :WHI 
LE progí="" : prog*=INKEY* :WEND: prog= 
VAL (prog*) 

240 IF prog=4 THEN CALL bdl9 
250 IF prog<0 OR prog>3 THEN 140 
2b'o IF prog=l THEN jota=7 ELSE jota 
=6 

1000 ' ********** presentación ***** 

************ 

1010 MODE 2 : INK 0,27:INK 1,3:PEN 1 

•.PAPER O: BORDER 0:CLS 

1020 ON prog GOSUB 26000,27000,2800 

O 

1030 CLS:PRINT 

1040 PRINT" DESEA UTILIZAR DISCO O 
CINTA (d/c)":cas$=" ":WHILE cas*="": 
cas*=INKEY*: WEND : c as*=UPPER* (c as* ) 


ICHERO DE MEMORIA" 

1210 SOUND 1,500,30,5,0 
1220 LOCATE 10,24:PRINT "introduzca 
oprion ":WHILE a*="":a*-INKEY*:WEN 
D:opc=VAL(a*):BORDER 10 
1230 ON opc GOSUB 3000,2000,4000,50 
00,6000,7000,8000,8500 
1240 GOTO 1120 

2000 ’********** creación de ficher 

o **************** 

2020 MODE 1:posic=l 
2030 MODE 2:s=0 

2040 ON prog GOSUB 15000,18000,2200 

O 

2050 PEN#3,1:PAPER#3,O:CLS#3:BORDER 

O 

2060 v=0: IF s*=l THEN RETURN 

2070 PRINT:WRITE "introduzca ’# ? pa 

ra terminar" 

2080 FOR i=posic TO m 
2090 i*-STR*(i) : j = l:mat*<i,j)=i*:PR 
INT#j,mat*(i,j):FOR j=2 TO jota 
2100 IF pr og :r 3 AND j=5 THEN j=6 
2110 INPUT# j,"",mat * <i,j) 

2120 mat*(i,j)=UPPER*<mat*(i,j)) 
2130 IF mat* <i,j)="#" THEN 2180 
2140 NEXT j 

2150 IF i/20=INT (i/20) THEN FOR k= 

1 TO jota:CLS#k:NEXT 

2160 inc=i+l 

2170 NEXT i 

2180 RETURN 

3000 ' ************ rarnar -firhern * 

***** 

3010 BORDER O:posic=1:REC=0 
3020 MODE 2:BDRR=0:PRINT#2,:PRINT#2 
, •• CARGAR F 

ICHERO" 

3030 F'RINT#2: PRINT#2, " 

DESEA VER CATALOGO DEL DISC 
O":WHILE CATA*="":CATA*=INKEY*:WEND 
:CATA*=UPPER*(CATA*) 

3040 WIND0W#0,1,80,5,20 
3050 IF cas*="D" AND CATA*="S" THEN 
CAT 

3060 L0CATE#2,12,20:PRINT#2," int 


1050 PRINT 
1060 n=1:s=0 

1070 TF qtod= 1 ÍHFN PRINT" Puede ut 
i linar 1000 registros como máximo ( 
si borra las lineas 20000—21420 y 
24000- podras utilizar 1400 reg 
istros). " 

1080 PRINT" Es recomendable dar un 
margen en el numero de registros a 
utilizar (con 30 de mas sera su-f 
iciente)." 

1090 PRINT:INPUT " INTRODUZCA NUMER 
O DE REGISTROS, (máximo 1100) ",m:I 
F m > 1100 OR m<0 THEN 1010 
1100 IF m=0 THEN m=1100 
1110 DIM mat*(m,jota) 

1120 CLS:MODE 1 : BORDER 0:a*="":f=0: 
CAT A*="" 

1130 PRINT:PRINT:PRINT" 

OPCIONES" : PRINT " ====== 

==" : PRINT 

1140 PRI NT: PRINT" 1. CARGAR F 

ICHERO" 


roduzca ’#’ para regresar al menú": 
L0CATE#2,8,24 

3070 CALL &BB03:INPUT#2," IN 

TRODIJZCA NOMBRE DEL FICHERO ";FICH* 

:IF FICH*="#" THEN RETURN 

3080 IF BORR-1 THEN RETURN 

3090 IF REC=1 THEN OPENOUT FICH* EL 

SE OPENIN FICH* 

3100 CLS 

3110 FOR i=posic TO m 

3120 FOR j=l TO jota 

3130 IF REC=1 THEN PRINT#9, mat* (i , j 

) : IF mat* (i ,j )="#" THEN 3200 

3140 IF REC=0 THEN INPUT#9,mat* (i,j 

) : IF mat* (i , j)="#" THEN 3200 

3150 IF LEN(mat* (i , j))=0 THEN 3200 

3160 mat* (i , j) =UPPER*(mat*(i, j)) 

3170 NEXT j 

3180 LOCATE# 1 ,25,13:IF REC=1 THEN P 
RINT#1,"SALVANDO REGISTRO";i ELSE 
PRINT#1,"CARGANDO REGISTRO"; i 
3190 NEXT i 

3200 IF REC=1 THEN CLOSEOUT ELSE CL 
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OSEIN 

3210 RETURN 

4000 ’*************** busca titulo 

**** 

4010 MODE 2r BORDER 0ssaldo=0 
4020 CALL &BB9C: PRINT*'EL LISTADO DE 
L FICHERO SE CONSIGUE FULSANDO <CR> 
A TODAS LAS OPCIONES":CALL &BB9C:P 
RINT 

4030 PRINT "QUIERE LOS DATOS POR LA 
IMPRESORA " 

4040 re»=INKEY»: IF re$= ,,M THEN 4040 
ELSE IF re»="S" OR re$="s" THEN p= 
B ELSE p=l 
4050 ordenar=0 

4060 ON prog GOSUB 16050,20010,2401 
O 

4070 IF ordenar=l THEN RETURN 
4080 PRINTSPRINT:PRINT"INTRODUZCA N 
UMERO DE CAMPO ";: A»="":WHILE A»="" 

:A»=INKEY»:WEND¡n=VAL(A»)sPRINT A»: 
PRINT 

4090 PRINT"BUSQUEDA POR ABREVIATURA 
"j:ayuda$=""s WHILE ayuda$="":ayuda 
»=INKEY»:WEND:ayuda»=UPFER»(ayuda») 
SPRINT ayuda» 

4100 PRINT:INPUT "INTRODUZCA CLAVE 
A LISTAR (pulse <CR> a continuación 
) ", nombre»:nombre»=UPPER»(nombre») 
4110 ON proo GOSUB 16010.19010.2301 

O 

4120 k=l:ventáisGOSUB 9000 

4130 vent=0 

4140 FOR i=k TO m 

4150 j = lsIF LEN(mat»(i,j))=0 THEN 4 
260 

4160 IF mat»(i,2)="#" THEN 4280 
4170 IF ayuda»< >"S" THEN 4200 
4180 FOR 1=1 TO 15 

4190 IF nombre»=LEFT»(mat»(i,n),1) 
OR LEFT»(nombre»,1)=mat»(i,n) THEN 
4220 ELSE NEXTs GOTO 4260 
4200 IF nombre»=mat»<i,n) THEN 4210 
ELSE 4260 

4210 mat»(i,1)=STR»(i):IF prog=3 TH 
EN saldo=VAL(mat»(i,4))+saldo:mat»( 
i,5)=STR»(sal do) 

4220 ON prog GOSUB 17010,21010,2501 
O 

4230 IF progOl THEN IF i/10=INT(i/ 
10) THEN CLS#3:a»=INKEY«:IF a»="l" 
THEN RETURN ELSE vent=0:GOSUB 9000: 
GOTO 4250 

4240 IF i/20=INT(i/20) THEN CLS#3:a 
»=INKEY»:IF a»="l" THEN RETURN ELSE 
vent=0:GOSUB 9000 
4250 IF opc=1 THEN RETURN 
4260 NEXT i:L=0 
4270 IF ordenar=2 THEN RETURN 
4280 GOSUB 9000 
4290 RETURN 

5000 ’********************** ORDENA 
CION POR CLAVES ******************* 
*** 

5010 CLS:BORDER O:PRINT:PRINT" 
CAMPOS"SPRINT" 


5020 ordenar=l-.GOSUB 4060 
5030 PR I NT: PR I NT: PR I NT: A»= " " : F‘R I NT 
" SELECCIONE CAMPO A ORDENA 

R":WHILE A»="":A»=INKEY»:WEND:CL=VA 
L(A»):IF CL=0 OR CL>7 THEN RETURN 
5040 CLS:BORDER O 

5050 FOR i=1 TO m:IF mat»(i,2)= "#" 
THEN con=i-1 ELSE NEXT i 
5060 FOR i=1 TO con-1 
5070 FOR j=con TO i+ 1 STEP -1 
5080 IF mat»(i,CL)="" OR mat»(j,CL) 
="" THEN 5100 ELSE LOCATE 1,10:PRIN 
T"VAN ORDENADOS";i;"REGISTROS FALTA 
N";con-i 

5090 IF mat»(i,CL)>mat»(j,CL) THEN 
FOR K=2 TO 6:B» (K) =mat»(i , K) :mat»(i 
, K) =mat » ( j, K) : mat» (j , K) =B» (K) -.NEXT 
K 

5100 NEXT j 
5110 NEXT i 
5120 RETURN 

6000 * ************ salvar -fichero * 

**** 

6010 MODE 2:REC=1:BORDER O 
6020 PRINT#2:PRINT#2," 

AVISO!!!" 

6030 WIND0W40,1,80,5,20 

6040 PR I NT #2: F*R I NT #2, " NO REPITA LO 


S NOMBRES DE LOS FICHEROS DARIAN PR 

OBLE MAS Al BUSCARLOS" 

6050 CATA»="":GOSUB 3030 
6060 RETURN 

7000 ’*************** FIN OPERACION 
ES ******************************** 
***** 

7010 MODE 1:BORDER O:LOCATE 1,13:IN 
PUT "QUIERE REGRESAR MENU DE PROGRA 
MAS (s/n)";r» 

7020 r»=UPF*ER»(r») : IF r»="S" THEN 1 

O 

7030 RETURN 

8000 ’***************** BORRAR FICH 
ERO EN DISCO ******************** 

8010 MODE 2:BORDER O 

8020 IF cas$<>"D" THEN RETURN 

8030 PRINT" 

ATENCION'!•" 

8040 PRINT" 

===========" sPRINT 

8050 B0RR=1sPRINTSPRINT" UTILICE 

ESTA OPCION CON CUIDADO, ASEGURESE 
ANTES DE SEGUIR"-.PRINT: PRINT" 

EL FICHERO BORRADO ES IRREC 
UPERABLE" 

8060 PRINT" 


8070 GOSUB 3050:IF FICH»="#" THEN R 
ETURN 

8080 !ERA,9FICH»:B0RR=0 
8090 RETURN 

8500 * ************** borrar fichero 
de memoria *********** 

8510 CLS:INPUT "DESEA BORRAR EL FIC 
HERO EXISTENTE EN MEMORIA (s/n)"¡a» 
8520 IF a»< >"s" OR a»<>"S" THEN RET 
URN ELSE CLEAR:RETURN 
9000 ’<<<<<<<<<<<<<< VENTANA DE AYU 
DA >>>>>>>>>>>>>>>> 

9010 PEN#3,O:F'APER#3,1:CLS#3 
9020 PRINT#3:PRINT#3,"1.RETORNO MEN 
U 2.NUEVO REGISTRO 3.BAJAS 4.M0D 
IFICAR 5.PAG.ANT. 6.CONTINUA" 

9030 IF vent = 1 THEN RETURN 
9040 L0CATE#3,28,3:PRINT#3,"introdu 
sea opcion ":A»="":WHILE A»="":A»=I 
NKEY»:WEND:opc=VAL ( A») 

9050 IF opc=l THEN RETURN 

9060 ON opc GOSUB 10,13000,10000,11 

000,12000,14000 

9070 RETURN 

10000 ? *******<<< <<<<<<<<BAJ AS>>>>> 

>>>>>>>>>***************** 

10010 CLS#3:PRINT#3," 

( 'O* para regresar al menú )" 
10020 INPUT#3,"INTRODUZCA POSICION 
DEL REGISTRO A BORRAR";nombre:nombr 
e»=STR»(nombre):IF i=0 THEN RETURN 
ELSE i=0 

10030 FOR i=1 TO m 

10040 IF nombre»=mat$(i,1) THEN 100 
50 ELSE NEXT i:IF i=m THEN RETURN 
10050 FOR k = i+l TO m 
10060 FOR j=l TO jota 
10070 mat»(k-1,j)=mat» (k,j) 

10080 NFXT i 
10090 NEXT k 
10100 RETURN 

1 1000 *****#*#<<<<<<<< modificación 
ventana ayuda >>>>>>>>*********** 

**** 

11010 CLS#3:PEN#3,0:1NPUT#3, "INTRO 
DUZCA POSICION DEL REGISTRO A MQDIF 
ICAR";i:CLS#3 

11020 PF.N#3,0: INPUT#3, "INTRODUZCA N 
UMERO DEL CAMPO A MODIFICAR ";C 
11030 CL S#3:PRINT43," ";mat» ( i,C): 

L0CATE#3,10,3:PRINT#3," (introduzc 
a ! ‘4 : ' para reqresar al menú) " 

11040 LOCATE #3,1,1:1NPUT#3,m» 

11050 IF m»="#" THEN RETURN ELSE m» 
=UPF’ER» (m») : mat» ( i , C) =m» 

11060 CLS#l:i=i-l 
11070 RETURN 

12000 * *****#*<<<<<<<<<pagi na anter¬ 
ior >> ****************** * 

12005 IF progOl THEN nu=20 ELSE nu 
=40:*determina cuantos registros re 
trocede 

12010 i=i-nu:IF i<l THEN i=l:CLS#l: 

RETURN ELSE CLS#1:RETURN 

13000 '*******<<<<<<<<<<nuevos regi 

stros»»**** ************* 

13010 CLS#3: F*RINT#3, " 


(’O' para regresar al menú)" 

13020 INPUT#3,"INTRODUZCA LA POSICI 
ON DEL NUEVO REGISTRO %posic:IF pa 
sic=0 THEN RETURN 

13025 PRINT#3:INPUT#3,"DESEA UTILIZ 
AR EL TECLADO O DISCO (t/d) ",disc» 
:disc»=UPPER»(dise»):IF disc»="D" T 
HEN REC=0:MODE 2:GOSUB 3030:vent=l: 
RETURN 

13030 GOSUB 2030:RETURN: *««<retor 
no menú >>>>>>> 

14000 ? ***************** continuar 
********************* 

14010 CLS#1:RETURN 
14020 RETURN 

15000 ************ fichero ******** 
***** 

15010 LOCATE 2,1:PRINT"POS":LOCATE 
8,1:PRINT"TITUL0":LOCATE 23,1:PRINT 
"TIPO":LOCATE 30,1:PRINT"CINTA":LOC 
ATE 37,1:PRINT"VALORACION":LOCATE 5 


O, 1: PRINT "REVISTA"-.LOCATE 65, 1:PRIN 
T"OBSERVACIONES" 

15020 LOCATE 2,2:PRINT"-":LOCATE 

8,2:PRINT"-":LOCATE 23,2:PRINT 

»-": LOCATE 30, 2: PRINT"-" : LOC 

ATE 37, 2: PRINT"-": LOCATE 5 


0,2: PR I NT "-": LOCATE 65,2:PRIN 

T"-" 

15030 WIND0W#0,1,80,23,25:WINDOW#1, 
1,4,3,22:WIND0W#2,6,20,3,22:WINDOW# 
3,22,28,3,22:WIND0W#4,30,35,3,22:WI 
ND0W#5,37,48,3,22:WIND0W#6,50,57,3, 
22:WIND0W#7,59,80,3,22 
15040 RETURN 
16000 *********** 

16010 MODE 2:x=0:s=1:WINDOW#1,1,80, 
2,21:WIND0W#0,1,80,1,1:WIND0W#3,1,8 
0,23,25 

16020 IF p=8 THEN PRINT#8:PRINT#8:P 
RINT#8,"COD TITULO TIPO C 

INTA VALORACION REVISTA O 

BSERVACIONES":RETURN 
16030 CALL ?<BB9C: LOCATE 2,1:PRINT"P 
OS":LOCATE 6,1:PRINT"TITULO":LOCATE 
21,1:PRINT"TIP0": LOCATE 28, 1-.PRINT 
"CINTA":LOCATE 35,1:PRINT"VALORACIO 
N":LOCATE 48,1:PRINT"REVISTA":LOCAT 
E 63, 1: PRINT"OBSERVACIONES" : CALL t *B 
B9C 

16040 RETURN 
16045 ************ 

16050 PRINT:PRINT" 1. 

POSICION":PRINT:PRINT" 

2.TITULO":PRINT:PRINT" 

3. TIPO":PRINT:PRINT" 

4. No. de CINTA":PRINT:PRINT" 

5.VALORACION":PRINT:PRI 
NT" 6.REVISTA" 

16060 PRINT:PRINT" 7. 

OBSERVACIONES" 

16070 RETURN 
17000 ************ 

17010 PRINT#p, USING "\ \";mat»(i 

,1);:PRINT#p,USING "\ V 

;mat»(i,2);:PRINT#p, USING "\ 

\";mat*(i,3);:PRINT#p,USING "\ 

\";mat*(i,4);:PRINT#p, USING"\ 
\";mat*(i,5); 

17020 PRINT#p,USING "\ \";ma 

t*(i,6);:PRINT#p,USING "\ 

\";mat*(i,7) 

17030 x=x+l 
17040 RETURN 

18000 * ********************** DIETA 
RIO ************************* 

1B010 LOCATE 2,1:PRINT"POS":LOCATE 
17,1:PRINT"NOMBRE":LOCATE 34,1:PRIN 
T"FECHA":LOCATE 42,1:PRINT"IMPORTE" 
:LOCATE 53,1:PRINT"No.HISTO":LOCATE 
67,1:PRINT"OBSERVACIONES" 

18020 LOCATE 2, 2: PRINT"-"-.LOCATE 

17,2:PRINT"-"¡LOCATE 34,2:PRIN 

T"-" : LOCATE 42,2:PRINT"-" 

¡LOCATE 53, 2: PRINT"-"¡LOCATE 

6^,2: PRINT"-" 

18030 WINDOW#0,1,80,23,25:WINDOW#1 , 
1,4,3,22: WIND0W#2, 6, 30, 3,22: WINDOW# 
3,32,40,3,22:WIND0W#4,42,51,3,22:WI 
ND0W#5,53,61,3,22:WIND0W#6,63,80,3, 
22 

18040 RETURN 
19000 ’********* 

19010 MODE 2:x=0:s=l:WINDOW#!,1,80, 
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2,21:WIND0W#0,1,80,1,1:WIND0W#3,1,8 
0,23,25 

19020 IF p =8 THEN PRINT# 8 :PRINT# 8 :P 
RINT# 8 ,"POS NOMBRE 

FECHA IMPORTE No.HISTORIA 
OBSERVACIONES"s RETURN 
19030 CALL &BB9C: LOCATE 2,1:PRINT"P 
OS":LOCATE 17,1s PRINT"NOMBRE":LOCAT 
E 34, 1 :PRINT"FECHA"!LOCATE 42,1:PRI 
NT"IMPORTE":LOCATE 53.1sPRINT"No.HI 
STO":L OCAlE 67,1:PRI NT"OBSERVACIONE 
S":CALL &BB9C 
19040 RETURN 
20000 ’*********** 

20010 PRINT:PRI NT" 1. 

POSICION":PRINT:PRINT" 

2.NOMBRE " :PRINT:PRINT" 

3. FECHA" :PRINT:PRI NT" 

4.IMPORTE":PRINT:PRINT" 

5.No.HISTORIA"SPRINT 
20020 PRINT" 6.0BSERV 

ACIONES" 

20030 RETURN 
21000 =•****♦»** 

21010 PRINT#p, USING "\ \";mat*(i 

,1);:PRINT#p,USING "\ 

\ ";mat $(i, 2) ;:PRINT #p, US 
ING "\ \";mat*(i,3);:PRINT#p, 

USING"####,### ";VAL(mat*(i,4) ) ;:PR 
INT#p,USING" ####,### VAL(mat*(i 
,5) ) ; 

21020 PRINT#p,USING "\ 

\" ;mat* (i , 6 ) 

21030 x =x + 1 
21040 RETURN 

22000 '**************** RECIBOS ** 
******************* 

22010 LOCATE 2,1:PRINT"POS":LOCATE 
17,1:PRINT"CONCEPTO " :LOCATE 34,1:PR 
INT"FECHA " :LOCATE 42,1:PRINT"IMPORT 
E":LOCATE 67,1:PRINT"PROCEDENCIA" 

22020 LOCATE 2,2:PRINT" - ":LOCATE 

17,2: PRI NT" - ": LOCATE 34,2:PR 

INT" - ":LOCATE 42,2:PRINT" - 

LOCATE 67, 2: PRI NT" -" 

22030 WIND0W#0,1,80,23,25:WINDOW#1, 

1,4,3, 22: WIND0W#2,6,30, 3, 22: WINDOUJ# 
3,32,40,3,22:WIND0W#4,42,51,3,22: WI 


ND0W#5,53,61,3,22:WIND0W#6,63,80, 3, 
22 

22040 RETURN 
23000 ”********* 

23010 MODE 2:x =0:s=1:WINDOW#1,1,80, 
2,21:WIND0W#0,1,80,1,1:WIND0W#3, 1,8 
0,23,25 

23020 IF p =8 THEN PRINT# 8 :PRINT#B:P 
RINT # 8 ,"POS CONCEPTO 

'FECHA IMPORTE SALDO 
PROCEDENCIA":RETURN 

23030 CALL &BB9C:LOCATE 2,1:PRINT"P 
OS":LOCATE 17,1:PRINT"CONCEPTO":LOC 
ATE 34,1:PRINT"FECHA":LOCATE 42,1:P 
RINT"IMPORTE":LOCATE 54,1:PRINT"SAL 
DO "-.LOCATE 67, 1: PRI NT "PROCEDENCIA" : 
CALL &BB9C 
23040 RETURN 
24000 ********** 

24010 PRINT-.PRINT" 1. 

POSICION":PRINT:PRINT" 

2.CONCEPTO":PRINT:PRINT" 

3.FECHA":PRINT:PRINT" 

4.IMPORTE":PRINT:PRINT" 

5.SALDO":PRINT 

24020 PRINT" 6 .PROCED 

ENCIA" 

.24030 RETURN 
25000 ********** 

25010 PRINT#p, USING "\ \";mat*(i 

,1);:PRINT#p,USING "\ 

\";mat *(i,2);:PRINT#p, US 
ING "\ \";mat*(i,3);:PRINT#p, 

USING "####,### " 5 VAL(mat*(i,4))}:P 
RINT#p, USING"#####,### ";VAL(mat*( 
i,5)): 

25020 PRINT#p,USING "\ 

\";mat*(i, 6 ) 

25030 RETURN 

26000 ************* descripción del 
fichero múltiple **************** 
26010 PRINT:PRINT" 

FICHERO MULTIPLE" 

26020 PRINT" === 


26030 PRINT-.PRINT 

26040 PRINT" EL CAMPO POSIC 

ION SE RELLENA AUTOMATICAMENTE" 
26050 F’RINT: PRI NT " EL CAMPO 


TITULO DISPONE DE 14 CARACTERES." 
26060 PRINT-.PRINT" EL TIPO 

DISPONE DE 6 CARACTERES." 

26070 PRINT:PRINT" EL CAMPO 

CINTA REFLEJA EL NUMERO DE ESTA Y 
CONTIENE 5 CARACTERES." 

26080 PRINT:PRINT" EL CAMPO 

VALORACION 10 CARACTERES." 

26090 PRINT-.PRINT" EL CAMPO 

OBSERVACIONES 20 CARACTERES." 

26100 PRINT"- 


26110 PRINT:PRINT"NOTA:si desea cam 
biar algún campo o modificar su dim 
ension modifique las lineas" 

26120 PRINT-.PRINT" 19000-20000. 

26130 LOCATE 18,24:PRINT"pul se una 
tecla para continuar": CALL ?<BB18 
26140 RETURN 

27000 ************* descripción del 

dietario **************** 

27010 PRINT" 

DIETARIO" 

27020 PRINT" 


27030 PRINT 

27040 PRINT" EL CAMPO POSIC 

ION SE RELLENA AUTOMATICAMENTE" 
27050 PRINT-.PRINT" EL CAMPO 

NOMBRE DISPONE DE 24 CARACTERES." 
27060 PRINT-.PRINT" EL CAMPO 

FECHA DISPONE DE 8 CARACTERES." 
27070 PRINT-.PRINT" EL CAMPO 

No.HISTORIA CONTIENE 8 CARACTERES. 

27080 PRINT:PRINT" EL CAMPO 

IMPORTE 7 CARACTERES." 

27090 PRINT:PRINT" EL CAMPO 

OBSERVACIONES 17 CARACTERES." 

27100 PRINT" - 


27110 PRTNT:PRINT"NOTA;si desea cam 
biar algún campo o modificar su dim 
ension modifique las lineas" 

27120 PRINT" 20000-21000." 

27130 PRINT:PRINT"Par a mayor efecti 
vidad del programa introduzca la fe 
cha de la forma MM/DD/AA dond 

e MM es el mes con dos digitos, DD 
el dia y AA el a/o. 

De esta forma podra listar por m 
eses completos." 

27140 CAI L &BB9C:LOCATE 18,25:PRINT 
"pulse una tecla para continuar":CA 
LL ?<BB1 8 : CALL &BB9C 
27150 RETURN 

28000 ************* descripción del 
recibos ***************** 

28010 PRINT" C 

GNTABILIDAD" 

28020 PRINT" 


28030 PRINT:PRINT 

28040 PRINT" EL CAMPO POSIC 

ION SE RELLENA AUTOMATICAMENTE" 
28050 PRINT:PRINT" EL CAMPO 

CONCEPTO DISPONE DE 24 CARACTERES. 

28060 PRINT-.PRINT" EL CAMPO 

FECHA DISPONE DE 8 CARACTERES." 
28070 PRINT:PRINT" EL CAMPO 

IMPORTE CONTIENE 7 CARACTERES." 
28080 PRINT-.PRINT" EL CAMPO 

SALDO 8 CARACTERES." 

28090 PRINT-.PRINT" EL CAMPO 

PROCEDENCIA 17 CARACTERES." 

28100 PRINT"- 


28110 PRINT:PRINT"NOTA:si desea cam 
biar algún campo o modificar su dim 
ension modifique las lineas" 

28120 PRINT" 21000-22000." 

28130 PRI NT: F'RINT"Para mayor efecti 
vidad del programa introduzca la fe 
cha de la forma MM/DD/AA dond 

e MM es el mes con dos digitos, DD 
el dia y AA el a/o. 

De esta forma podra listar por m 
eses completos." 

28140 LOCATE 18,25:PRINT"pulse una 
tecla": CALL ?<BB18 
28150 RETURN 
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¡ Apasionante! 


LANCASTER B MK l/lll (OAM BUSTER) 


Distribuido en 
España por 


S<x¿touxviz 


Son las 21'15 horas del 16 de Mayo. Un bombardero Lancaster en vuelo especial, despega de Inglaterra hacia Alemania. Después de meses 
de preparación, el escuadrón 617 vuela en una operación destinada a cambiar el curso de la II Guerra Mundial. Su objetivo es destruir las 
más importantes presas alemanas para paralizar los puntos vitales de sus fábricas de armamento. 

Este detallado y auténtico simulador te permite ocupar los puestos de: Piloto, Ingeniero de vuelo, Artillero delantero y trasero, 
Bombardero y Navegante. Volarás a través del Canal de la Mancha y Europa intentando evitar a los temibles ME-110 alemanes, zeppe- 
lines, focos antiaéreos y todos los demás peligros a los que se enfrentó el comando Inglés. 


PIDE ESTOS PROGRAMAS A ERBE, SANTA ENGRACIA, 17, 28010 MADRID. TFN. (91) 447 34 10 - Y EN LAS MEJORES 
TIENDAS DE INFORMATICA TIENDAS Y MAYORISTAS.. CUMPLIMENTAMOS SUS PE0ID0S EN 24 HORAS 














































Grafpad II 


¿Quién dice que el ordenador es una fría máquina 
de cuadricular mentes y axfisiar la creatividad? 
Esto nos preguntamos después de haber visto 
funcionar esta portentosa tableta gráfica. La 
respuesta es, sin duda, que la persona que 
mantiene esta afirmación, aún no ha dibujado o 
simplemente no ha visto dibujar con ella. 



'a conexión es al 
bus de expansión, y como siempre 
hay que guardar las clásicas precau¬ 
ciones de conectarla con el ordena¬ 
dor apagado. 


Vamos a dibujar 


Primero deberemos cargar el pro¬ 
grama, del que hay versión en cinta 
y disco, con RUN «AINTRO». Des¬ 
pués ya podemos empezar a dibujar. 

Pero si queremos hacerlo bien, de¬ 
bemos leer con detenimiento, la com¬ 
pleta guía del usuario que acompa¬ 
ña la tableta, ésta afortunadamen¬ 
te, salvo en unos pocos puntos, es 
bastante clara y nos enseña el fun¬ 
cionamiento de cada icono. 

Las opciones de las que dispone¬ 
mos son las siguientes: 

— DIBUJO UBRE: En suma es co¬ 
mo dibujar con un simple lapicero. 
Podremos seleccionar el grosor de la 
línea. 

— SPRAY: Se puede escoger tan¬ 
to el tipo de spray, como su densidad 
(9 en total). 

— LINEA RELLENA: Nos rellena 
una línea dibujada desde un punto 
dado el grosor escogido. 

— TRIANGULO: Podemos dibu¬ 
jar todo tipo de triángulos siguiendo 
ios siguientes pasos: 

1. Determinar un primer punto 
con el lápiz en la tableta (primer vér¬ 
tice); 

2. Desde este punto, escoger la 
longitud adecuada del primer lado 
(el último punto de este lado forma¬ 
rá el segundo vértice); 
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3. Colocar el último punto donde 
se quiera (tercer vértice). 

— CIRCULO: Sólo tenemos que 
elegir con un punto el centro del cír¬ 
culo y a partir de éste, moviendo el 
lápiz sobre la tableta determinar la 
longitud del radio. El círculo saldrá 
dibujado a continuación. 

— ELIPSE: Determinamos el cen¬ 
tro de la elipse y moviendo el lápiz 
en la tableta agrandamos o empe¬ 
queñecemos la misma, posteriormen¬ 
te saldrá dibujada. 

- DIBUJO PUNTEADO: Esta op¬ 
ción se puede escoger después de la 
del círculo y éste se nos dibujará pun¬ 
teado. 

— CUADRADO: Hay que colocar 
el cursor para elegir el primer punto 
y mover el lápiz sobre la tableta pa¬ 
ra definir tamaño y posición. 

— RECTANGULO: Se siguen los 
mismos pasos que en la opción de 
CUADRADO. 

— POLIGONOS: Podemos elegir 
de 3 a 15 lados. Tenemos que mar¬ 
car un punto en la tableta y apartir 
de éste elegir el radio del polígono. 
Después de esto podemos seleccio¬ 
nar el color del mismo. 

— GOMA: ¿Nos hemos equivo¬ 
cado? Pues no importa, para eso te¬ 
nemos borrador, y de éste podremos 
elegir el color de la tinta a borrar, 
borrando sólo ésta. Podremos elegir 
también el tamaño de la goma. 

Después, como si de un típico bo¬ 
rrador se tratara, moveremos en la 
tableta el lápiz para borrar la super¬ 
ficie deseada. 




- IMPRESOR DE ICONOS: Tene¬ 
mos con esta opción la posibilidad de 
acceder a un archivo de almacena¬ 
je de 32 iconos, este archivo está 
compuesto de dos páginas de 16 ico¬ 
nos, y para pasar de una página a 
otra deberemos situar el cursor so¬ 
bre el último, realzado en rojo, que 
sirve para este fin. 

Una vez elegido el icono debemos 
poner el lápiz sobre el pulsor «E», 
posteriormente lo situaremos en la 
zona de la tableta que deseemos, 
pulsaremos «E», de nuevo y el ¡cono 
quedará en la zona de pantalla de¬ 
finida con la tableta. Podemos usar 
nuestros propios iconos si previamen¬ 
te los hemos creado con el GENERA¬ 
DOR DE ICONO, una vez hecho es¬ 
to los podemos salvar con la opción 
GRABAR Y CARGAR, luego, con la 
misma opción también, podemos 
cargarlos en el impresor y utilizarlos. 

- VENTANA DE GRAFICOS: 
Nos permite difinir la porción de 
pantalla en la que queramos dibujar. 

Debemos fijar un punto en el ex- 










































tremo inferior de la pantalla, y a par¬ 
tir de este punto mover el lápiz ha¬ 
cia la derecha y hacia arriba para 
conseguir el tamaño deseado. Para 
apagar esta función hay que volver 
ai menú y seleccionar la misma, pul¬ 
sando «E». 

- BORRADOR DE PANTALLA: 
Esta opción permite limpiar totalmen¬ 
te la pantalla. Hay que seleccionar 
el ¡cono y después confirmar con las 
opciones «YES» o «NO» el borrado 
de la pantalla. 

- CURSOR COMPLETO: Con el 
cursor completo tenemos la posibili¬ 
dad de utilizar un centrador de pan¬ 
talla, para tomar referencias, etc. 

- LINEAS HORIZONTALES Y 
VERTICALES: Debemos seleccionar 
el grosor de la línea, fijar un punto 
pulsando «E»,y dibujar hasta donde 
queramos, volver a pulsar «E» y ten¬ 
dremos la primera línea desde la cual 
ya podremos dibujar todas las hori¬ 
zontales y verticales que queramos 
pulsando «E» cada vez que se quie¬ 
ra marcar. 


— TEXTO: En esta opción pode¬ 
mos usar letras normales mayúsculas 
y minúsculas, itálicas (inclinadas) ha¬ 
cia adelante y atrás, también en ma¬ 
yúsculas, letra negrilla y la posibili- 


PRUEBAS 



dad más vistosa que es la proyección 
del texto, pudiendo cambiar el color 
de la proyección referente al color 
del texto. 

— LLENADO: Podemos rellenar 
tanto la pantalla completa, como 
cualquier superficie que hallamos de¬ 
limitado previamente. 

Si queremos que sea de un solo co¬ 
lor debemos seleccionar el mismo co¬ 
lor de primer plano y el mismo color 
de fondo. Una vez hecho esto lleva¬ 
remos el cursor dentro de la superfi¬ 
cie a rellenar y pulsaremos «E», el re¬ 
lleno se hará de acuerdo con la al¬ 
tura en la que hallamos situado el 
cursor, esto es, que si se pone a la 
mitad, por ejemplo, sólo llenará la 
mitad de la superficie. 

Pero también podemos utilizar las 
32 muestras que tiene almacenados 
el programa, muestras en las que 
también deberemos escoger los co¬ 
lores de fondo y de primer plano. 
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— EJE: Esta opción está destina¬ 
da al giro de la forma creada y po¬ 
demos girarla 90, 180 y 270 grados. 
Después la archivaremos poniendo 
el cursor dentro y pulsando «E». 

Si deseamos cambiar la muestra, 
el color, o ambos a la vez, como si 
queremos hacer un nuevo giro, esto 
lo lograremos parando el archivo 
con ESCAPE. 

- GRAFICOS EN COLOR 
(GCOL): Se debe elegir 1, 2 ó 3 y uti¬ 
lizar cualquier función de dibujo pa¬ 
ra variar los efectos de la muestra. 

— REJILLA (GRID): Al elegir esta 
opción se nos pedirá en pantalla que 
determinemos el tamaño de la reji¬ 
lla, mediante la separación, por pi- 
xel, de sus líneas. 

— CURSOR OFF: Hace desapare¬ 
cer el cursor de la pantalla. 

- AREA DE LA TABLETA (PAD 
AREA): Podremos delimitar el área 
a utilizar de la pantalla. 

- GRABAR Y CARGAR: Con es¬ 
ta opción podemos salvar y cargar 
nuestras creaciones. 

- GENERADOR DE ICONOS: 
Para la versión en cinta del progra¬ 
ma, deberemos reinicializar el orde¬ 
nador (CTRL + SHIFF + ESC) y car¬ 
gar la segunda cara de la cinta. 



En la versión de disco se apuntará 
al ¡cono del menú de la tableta, se 
nos pedirá conformidad para car¬ 
garlo, (S/N), y si la damos cargare¬ 
mos el generador, saliendo del pro¬ 
grama principal. 

Si bien el acceso al generador des¬ 
de el programa principal es rápido 
y simple, el acceso a éste desde el ge¬ 
nerador es laborioso, exigiendo la 


grabación de nuestro diseño, reini- 
cialización del ordenador y posterior 
carga, otra vez, del programa prin¬ 
cipal. 

Pero volviendo al funcionamiento 
del generador, podemos usar los 32 
caracteres residentes o diseñar los 
nuestros mediante el siguiente siste¬ 
ma: 

Colocaremos el cursor en la rejilla 
de diseño y moveremos el lápiz so¬ 
bre la tableta para mover el cursor, 
cuando queramos imprimir o borrar 
pulsaremos «E» (teniendo en cuenta 
que el rojo imprime y que el blanco 
borra). 

Una vez diseñado el carácter, co¬ 
locaremos el cursor en la rejilla mos¬ 
tradora de ¡conos y pulsaremos «E». 

Para almacenar, arrastraremos el 
carácter al archivo de almacenaje y 
pulsaremos «E». De la parrilla de di¬ 
seño, siempre con el carácter crea¬ 
do, pasaremos a la rejilla de impre¬ 
sión para hacer caracteres mayores. 
Ellos tienen que ser almacenados co¬ 
mo caracteres individuales en el ar¬ 
chivo de almacenaje. 

El ganador de iconos tiene las si¬ 
guientes opciones: 

— Puede invertir el carácter en la 
rejilla de diseño. 
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— Dar una imagen espejo del ca¬ 
rácter referente al eje X o al eje Y. 

— Girar a 90, 180 y 270 grados 
el carácter o icono generado. 

— Limpiar, según queramos, la 
rejilla de impresión, o la rejilla dise¬ 
ñadora. 

— Grabar o cargar los caracteres 
generados. 

— Rutina de impresora si quere¬ 
mos imprimir la imagen en pantalla. 
La rutina es para las EPSON MX o 
FX. 

Una vez explicadas las amplísimas 
posibilidades de GRAFPAD II, que¬ 
da por decir que todas sus opciones 
se escogen pulsando la «E» que está 
en la tableta y que es equivalente a 
ENTER, para abandonarlas hay que 
poner el lápiz sobre la casilla de 
«OFF» y pulsar «E». Pero según da¬ 
tos facilitados por el distribuidor, el 
próximo modelo de GRAFPAD II irá 
dotado de un interruptor en el lápiz, 
desapareciendo la casilla «E» y sim¬ 
plificando su utilización con una so¬ 
la mano. 


¿ Y cómo dibuja 
GRAFPAD II? 


Bien, francamente bien, y pasare¬ 
mos muy buenos ratos dando rienda 
suelta a nuestra imaginación hacien¬ 
do todo tipo de dibujos e «inventos» 
gráficos llenos de color y vivacidad. 

Pero como era lógico no nos con¬ 
formamos con nuestra modesta opi¬ 
nión de aficionados al dibujo, y pe¬ 
dimos a un profesional, Manuel Bar¬ 
co, nuestro portadista, su parecer so¬ 


bre la tableta gráfica y sus conclusio¬ 
nes han sido éstas: 

El GRAFPAD II ofrece muchos as¬ 
pectos positivos principalmente a di¬ 
señadores gráficos para la ejecución 
de bocetos e ideas. 

En lo referente a las artes finales 
no es comparable a la ilustración o 
diseño sobre papel, aunque tal vez 
lo que no lo hace comparable sea el 
tamaño de la retícula de la pantalla, 
que al ser muy grande hace que sean 
bastas e imprecisas las líneas y las 
medias tintas. 

Con el color se podrían haber ofre¬ 
cido mayor cantidad de matizaciones 
si las opciones de la gama de colo¬ 
res pudieran corresponderse con los 
tres colores primariso ópticos (Ma¬ 
genta, Cian, Amarillo). 

Una de las posibilidades que más 
sobresalen es el poder cambiar de 
color sobre el trabajo ya realizado. 



De esta manera se puede ofrecer, so¬ 
bre una misma idea, muchas varia¬ 
ciones de color. 

Asimismo y en relación con las me¬ 
dias tintas, es también destacable la 
opción de «llenado» y su variedad 
de textura. Aislando las formas pue¬ 


de variarse el color del punto de la 
trama y ofrecer distintas tonalidades 
dentro de una misma gama cromá¬ 
tica. Aquí es necesario señalar la im¬ 
precisión de la opción «Spray» en es¬ 
te menester, aunque en otros sea 
práctico, como por ejemplo, para 
usarlo en el momento en que el lími¬ 
te entre dos texturas sea muy violen¬ 
ta, y en ese caso una pasada de 
spray ayuda a romper el límite cor¬ 
tante. 

Como de muy práctica se puede 
definir la opción «Línea rellena», no 
sólo para hacer líneas de gran lon¬ 
gitud o de construir líneas geométri¬ 
cas, sino que es útil también para de¬ 
limitar letras o formas muy precisas, 
en las que el límite tiene que ser níti¬ 
do y no necesariamente recto, ya 
que a trazos cortitos podemos con¬ 
seguir con mayor seguridad que con 
«Dibujo libre» un trazado satisfacto¬ 
rio. 

Y en el área del dibujo técnico es 
de agradecer la retícula de la que 
podremos disponer cada 2, 4, 8, 16 
y 32 pixel según optemos. Con esta 
retícula se pueden situar centros de 
circunferencias, puntos de fuga, me¬ 
diciones, etc. Esta retícula se puede 
hacer desaparecer sin que transcien¬ 
da al trabajo. 

Pues después de haber podido 
contar con esta acreditada opción, 
poco más tenemos que decir de esta 
fabulosa herramienta gráfica, que 
hará nuestras delicias, si aprendemos 
a manejarla con destreza. 


GRAFPAD II 

Ficha técnica 


Fabricante: Micro Draw 

Distribuye: Ofites Informática. 

Contenido del Kit: Tableta gráfica. 
Software en cinta o disco según 
versión. 

Sistema operativo: Amsdos. 

Precio: 23.900 cassette, 25.900 disco. 
(IVA no incluido). 
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DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener la tableta gráfica, puede 


LO ULTIMO EN DISPOSITIVOS DE ENTRADA DE GRAFICOS 


PARA AMSTRAD, COMMODORE Y BBC 


DIBUJO A MANO ALZADA 
SOFTWARE DE ICONOS 


DISEÑO DE ARQUITECTURA 
CON SOFTWARE DDX 


La primera tableta gráfica, de bajo costo, en ofrecer la duración y prestaciones requeridas por las 
aplicaciones de negocios, industria, hogar y educación. Es pequeña, exacta y segura. No necesita 
ajustes ni mantenimiento preventivo. GRAFPAD II es un producto único que pone la potencia de 
la tecnología moderna bajo el control del usuario. 


ESPECIFICACIONES 

RESOLUCION: 

1.280 x 1.024 pixels. 

PRECISION: 

1 pixel. 

TASA DE SALIDA: 

2.000 pares de coordenadas por 
segundo. 

INTERFACE: 

paralelo. 

ORIGEN: 

borde superior izquierdo o 
seleccionable. 

DIMENSIONES: 

350 x 260 x 12 mm. 

DISPONIBLE AMSTRAD: 
CASSETTE 23.900 pías. 
DISCO . 25.900 ptas. 

(IVA NO INCLUIDO) 


FACIL DE USAR. 

TRAZADO PCB. 

C.A.D. 

AREA DE DISEÑO DIN A4. 
COLOR EN ALTA 
W RESOLUCION. * 

L USO EN HOGAR Y 

W NEGOCIOS. 

{ VARIEDAD DE PROGRAMAS 

DISPONIBLES. 

DIBUJO A MANO ALZADA. 
DIAGRAMAS DE CIRCUITOS. 


COMBINA EN UN UNICO DISPOSITIVO TODAS LAS 
PRESTACIONES DE LOS INTENTOS PREVIOS DE 
MECANISMOS DE ENTRADA DE GRAFICOS. LAS 
APLICACIONES SON MAS NUMEROSAS QUE EN LOS 
DEMAS DISPOSITIVOS COMUNES E INCLUYEN: 

selección de opciones entrada de modelos L recogida de 
datos diseño lógico diseño de circuitos creación de 
imágenes Q almacenamiento de imágenes recuperación de 
imágenes diseño para construcción C.A.D. (diseño asistido 
por ordenador) □ ilustración de textos J juegos y diseño de 
muestras educación diseño PCB. 


Avda. Isabel II, 16 -8® 
Tels. 455544 - 455533 
Télex 36698 

20011 SAN SEBASTIAN 


CONDICIONES ESPECIALES PARA DISTRIBUIDORES 


Ofites Informática 

Presenta: la tableta gráfíca 

GRAFPAD II- 
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DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificultad para obtener los programas, puede dirigirse a: 

Avda. Isabel II, 16 - 8 S 
Tels. 455544 - 455533 
Télex 36698 
20011 SAN SEBASTIAN 
CONDICIONES ESPECIALES PARA DISTRIBUIDORES 
EDITOR Y DISTRIBUIDOR EXCLUSIVO PARA ESPAÑA Y PORTUGAL 


Ofites 

Informática 














Dominar el Cpm 


es tarea Fácil 

Francisco G. R. 


Hasta hace poco tiempo la mayoría de los usuarios de microordenadores se planteaban 
la dificultaa del Basic. Una vez resuelto el problema se intentaba aprender un poco más 
y se planteaban los problemas del código máquina. Ultimamente y con motivo de la 
aparición en el mercado del Amstrad, un nuevo término les empezó a preocupar: 

«Sistema Opertativo CP/M» 




_ duchos se preguntarán 

qué es el CP/M, para qué sirve, o similares pre¬ 
guntas. Otros se repetirán que es un Sistema 
Operativo. Pues bien, vamos a intentar expli¬ 
car qué son ambas cosas. 
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Sistema Operativo 
y CP/M 


El Sistema Operativo es el cerebro del mi¬ 
croordenador. Este se configura para tener 
«conocimientos», de los periféricos que se 
le pueden concectar entre sí, ahora o en un 
futuro. El sistema operativo controla todos los 
equipos, pero normalmente, al igual que el 
CP/M, no realiza ningún procedimiento com¬ 
plicado. 

El CP/M es un Sistema Operativo en Disco 
(DOS: Disc Operating CP/M son las siglas de 
Control Program Monitor, y existen en el mer¬ 
cado varias versiones del mismo. Entre las más 


importantes están el CP/M 80 y el CP/M 86. 
La primera se usa en casi todas las máquinas 
cuya CPU sea un 8080 o Z80, esto es, un mi¬ 
croprocesador de 8 Bits, con unidad de dis¬ 
co. La segunda funciona con las máquinas que 
lleven un 8086 u 8088, al igual que antes, nos 
referimos a las máquinas que tengan un mi¬ 
croprocesador de 16 Bits, y su respectiva uni¬ 
dad de disco. 


La Historia del CP/M 


Retrocediendo unos cuantos años atrás, po¬ 
demos observar los comienzos y divulgación 
del CP/M. El Sistema fue desarrollado por el 































































Dr. Gary Kildall en el 1973. La primera ver¬ 
sión se lanzó para el Sistema experimental Kil¬ 
dall, que incluía la primera unidad de disco 
de 8" de la casa Shugar Asociates. 

Durante varios años fue creciendo el mer¬ 
cado de ordenadores, y los poseedores de és¬ 
tos no estaban preparados ni seguros de lo 
que tenían entre las manos. Por entonces las 
casas desarrollaban, bien paralelamente o 
posteriormente en sus propios sistemas. Esto 
daba lugar a retrasos en los proyectos y el cos¬ 
te de los mismos. 

Las pequeñas empresas decidieron adoptar 
el sistema de Kildall y abaratar el coste, olvi¬ 
dándose de la investigación y desarrollo de los 
sistemas. Esta es una de las causas principa¬ 
les del empujón que se le dio al CP/M, el cual 
llegó a ser uno de los casi más utilizados del 
mercado actual. 

Pronto los usuarios empezaron a desarro¬ 
llar aplicaciones para el CP/M, potenciándo¬ 
lo a nivel de intercambios de información de 
unos ordenadores a otros. La casi compatibi¬ 
lidad entre los equipos que tuvieran un 8080 
o Z80, era lo que permitía a estos usuarios y 
no usuarios el intento de nuevos programas 
para mayor utilización de éste. Al lanzar rá¬ 
pidamente sus productos, las compañías no 
podían entregar una amplia información de 
ellos. 

Con lo cual los comercios de ordenadores 
no podían prestar suficiente servicio técnico al 
usuario. 

Con la incorporación de las unidades de dis¬ 
co, los técnicos se lanzaron a un gran desa¬ 
rrollo de Software, no sólo programas a me¬ 
dida sino programas de utilidades. Entre es¬ 
tos programas de utilidades podemos desta¬ 
car las primeras versiones del EBASIC y CBA- 
SIC. 

Más adelante se le incorporaron otras he¬ 
rramientas, lenguajes de programación, que 
le dio gran impulso y popularidad. 

En 1981 con la implantación del sistema en 
marcas como IBM, Hewlett-Packard y Xerox, 
hicieron que las ventas del sistema se duplica¬ 
ran. 

Hoy en día, disponemos de versiones más 
avanzadas de las que realizó Kildall por pri¬ 
mera vez. Las versiones se fueron ampliando 
y mejorando sustancialmente. Se pasó de la 
versión 1.4 a la 2.0 y después a la 2.2 (la cual 
se incluye en la compra de nuestro ordena¬ 
dor). Actualmente se está trabajando sobre la 
3.0 o PLUS. Esta última, trabaja con 128K, de¬ 
jando mayor capacidad para el usuario. El 
CP/M plus se coloca en el segundo banco de 
memoria, dejando libre el primero para tra¬ 
bajo. 


Estructura interna 
del CP/M 


El CP/M como hemos dicho es un sistema 
operativo; éste tiene una estructura que consta 


de bloques de programas, comandos, etc. En 
esta estructura cabe destacar tres partes: CCP, 
BDOS y BIOS. Tal vez nos sean familiares es¬ 
tos nombres pero posiblemente desconozca¬ 
mos qué son y para qué sirven. 

El CCP (Consolé Command Processor: pro¬ 
cesador de órdenes de consola), es la prime¬ 
ra parte que se carga en memoria después de 
la página base y la TPA (la página base y la 
TPA, es la zona de transición de programas). 
Este es el encargado de interpretar las órde¬ 
nes que se introducen por el tecaldo. El CCP 
reconoce solamente unas cuantas órdenes y 
unos caracteres de control que más tarde ex¬ 
plicaremos. 

El BDOS (Basic Disk Operating System: Sis¬ 
tema Operativo de Disco Básico), se coloca a 
continuación del CCP. Toda la actividad del 
disco y de la consola pasa a través de esta par¬ 
te. El BDOS no es accesible mediante órdenes 
directas, sino que se necesita de un progra¬ 
ma transitorio o del propio CCP. que nos car¬ 
ga un registro de memoria (el registro C), 
con la orden deseada, y posteriormente se eje¬ 
cuta una instrucción de CALL a la posición 
&H0005. 

El BIOS (Basic Input/Output System Básico 
de Entrada/Salida), es la última parte de la que 
consta el CP/M. El BIOS es particular de cada 
casa. Cada una, lo diseña de acuerdo a sus 
necesidades, bien por arquitectura del equi¬ 
po o necesidades de éste para posteriores in¬ 
terconexiones. Antes de intentar conectar otro 
sistema a nuestra máquina, necesitamos adap¬ 
tar el BIOS a este nuevo. En el BIOS, encon¬ 
tramos todos los parámetros del controlador 
de disco, entre otros. Muy útiles, si queremos 
conexionar una unidad de disco de 5"l/4, o 
bien efectuar una transmisión y recepción de 
datos mediante un interface RS-232-C. 


Códigos de control 
de Consola del 
CP/M 2.2 (464 y 6128) 


— Control-C: Arranque en calien¬ 
te 

Es la instrucción de arranque en caliente. Se 
limita a copiar de nuevo en su interior el CCP, 
con lo que se muestra como si hubiéramos car¬ 
gado el sistema de nuevo. 

— Control-E: Retorno del cursor. 

Nos retorna el cursor al final de la línea. Este 
final hay que decir que no es un final lógico 
sino más bien físico. 

— Control-G: BEL. 

Como su nombre indica es el carácter en¬ 
cargado de producir el pitido «Bel». Es el va¬ 
lor de la tabla ASCII número 7, que es el en¬ 
cargado del timbre. 


— Control-H: Delete. 

Esta orden de consola, está basada en el 
movimiento del cursor un carácter hacia la iz¬ 
quierda, permitiendo escribir desde allí. Al 
efectuamos el movimiento nos escribe un ca¬ 
rácter en blanco, con lo que prácticamente es 
un delete hacia la izquierda del cursor. 

— Control-I: Tabulador. 

Funciona exactamente igual que la tecla 
TAB. Nos manda el cursor al siguiente punto 
de tabulación o bien nos lo mueve unos ca¬ 
racteres más adelante a través de la línea de 
texto, según esté prefijada. 

— Control-J: Salto de línea. 

Nos realiza un salto de línea, pasándonos 
a la anterior para seguir insertando otra línea. 
Prácticamente es un retroceso de carro, al 
igual que en una máauina de escribir. 

- Control-M: RETURN. 

Este comando se comporta igual que si pul¬ 
sáramos el RETURN o el ENTER. Tiene la mis¬ 
ma función que los anteriormente menciona¬ 
dos. 

— Control—P: Switch de impreso¬ 
ra. 

Este comando es uno de los más interesan¬ 
tes que tenemos. Es el Switch de la impreso¬ 
ra. Cuando lo pulsamos por primera vez se 
queda conectado, reflejándose toda la infor¬ 
mación de la pantalla en la impresora. Cuan¬ 
do se vuelve a pulsar ésta se desactiva. Este 
comando lo trataremos más adelante con ma¬ 
yor amplitud, al hablar del mismo en el CP/M 
Plus. 

— Control-R: Repetir línea. 

Si estamos escribiendo una línea de progra¬ 
ma y hemos errado varias veces, la pantalla 
puede estar no muy clara, con lo cual se utili¬ 
za este comando, repitiéndonos la línea tal y 
como se encuentra en el interior de la memo¬ 
ria. 

— Control-S: Bloquear la panta¬ 
lla. 

En la ejecución de un programa, al querer 
observar algún detalle del mismo, como el fun¬ 
cionamiento o cálculo de éste, lo utilizamos pa¬ 
ra detener momentáneamente la ejecución de 
este. Para reanudarlo basta con pulsar cual¬ 
quier tecla. 

— Control—U: Delete total de lí¬ 
nea. 

Este comando nos borra la línea entera en 
la cual se encuetre el cursor en ese momento. 
Tiene una acción de LINE FEED totalmente 
destructiva. 
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— Control-X: Delete total hacia la 
Izquierda. 

Un código muy parecido al Control-U, nos 
borra toda la línea. Con la diferencia que es¬ 
te código solo no borra hacia la izquierda, pe¬ 
ro apenas podemos diferenciarlo con respec¬ 
to al anterior. 


Códigos de Control 
de Consola del CP/M 
Plus (6128 y 8256). 


— Control-A: Cursor izquierda. 

Nos mueve el cursor un carácter a la izquier¬ 
da. Podemos insertar cualquier carácter en 
donde situemos el cursor. Queda limitado a 
una misma línea, o sea que cuando lo tene¬ 
mos al comienzo de línea no podemos pasar 
a la línea superior. 

En el PCW 8256, mover el cursor hacia la 
izquierda lo efectuamos mediante la tecla de 
dirección de izquierda. 

— Control-B: Cursor a los extre¬ 
mos. 

Al pulsarlo por primera vez, y no estando 
en el principio, nos manda el cursor al princi¬ 
pio de la línea. Si se pulsa por segunda vez 
nos remite el mismo al final de ésta. Al igual 
que la anterior, este comando se limita a una 
sola línea no pudiendo ir a otra inferior o su¬ 
perior. 

Esta orden varía en el ordenador 8256, po¬ 
demos diferenciar dos pasos de cursor. 

Mediante la función LINEA (se obtiene pul¬ 
sando a la vez MAYS+FD L), lo moveremos al 
principio de línea. Para ir al final de línea ten¬ 
dremos que pulsar la misma tecla pero sin 
MAYS (sólo el FDL). 

— Control-C: Arranque en calien¬ 
te. 

Al introducir esta orden el CCP iniciará una 
operación de arranque en caliente. Esta ope¬ 
ración reinicializa el CP/M completamente, in¬ 
cluyendo los valores del controlador de Dis¬ 
co. 

El efecto que produce en el interior es una 
copia del CCP en la memoria, relee el direc¬ 
torio de la unidad por defecto y reconstruye 
el mapa de situación que contiene el BIOS. 

Cuando lo introducimos en medio de una lí¬ 
nea, al llegar a él, el ordenador aborta lo an¬ 
terior, reinicializándose el CP/M. 

— Control-E: Retorno del cursor. 

Cuando damos la orden C, el CP/M envía 
una orden de CARRIAGE RETURN, UNE FEED 
a la consola, pero no comienza a ejecutar la 
línea de orden que se ha escrito hasta el mo¬ 
mento. La orden es situarse al final de la línea 
física y no lógica. 


— Control-F: Cursor derecha. 

Nos manda el cursor hacia la derecha un 
carácter. Al igual que A, está restringida a una 
sola línea, no podemos seguir avanzando ha¬ 
cia la derecha, si tuviéramos otra línea. Este 
movimiento de cursor no es destructivo, no bo¬ 
rra el carácter. Esta orden la tenemos en el 
cursor de la izquierda para el PCW 8256. 

— Control-G: CLR. 

Funciona como la tecla de función CLR. Nos 
borra el carácter en el cual está posicionado 
el cursor. Nos borra el carácter y nos corre 
la línea un carácter hacia la izquierda. En el 
PCW lo obtenemos con la tecla de Delete ha¬ 
cia la derecha. 

— Control-H: Delete. 

Es el carácter de control del ASCII encarga¬ 
do del retroceso. Cuando pulsamos el fl, el 
CCP nos mueve el cursor una posición hacia 
atrás destructivamente. Se utiliza para corre¬ 
gir los errores de mecanografía al introducir 
una instrucción. El último carácter que tenga¬ 
mos en la pantalla desaparecerá. Ei CCP rea¬ 
liza una secuencia de caracteres de retroce¬ 
so, espacio, retroceso de consola. 

Esta orden la tenemos un poco más ágil en 
el PCW, al igual que el CLR el Delete lo en¬ 
contramos en Borrar hacia la izquierda. 

— Control-I: Tabulador. 

Nos manda el cursor hasta el próximo pun¬ 
to de tabulación. Es una forma rápida de mo¬ 
vernos a través de la línea de texto. Podemos 
ir hacia delante dentro de una misma línea, 
teniendo en cuenta que podemos insertar ca¬ 
racteres en cualquier posición en que quede 
situado el cursor. 

— Control-J: Salto de línea. 

Nos da el mismo efecto que si utilizáramos 
el código ASCII de LINE FEED. El CCP nos eje¬ 
cuta el salto de línea en la consola. Nos mue¬ 
ve el cursor una posición hacia abajo, y nos 
lo coloca al principio de línea. 

Para el PCW 8256 obtenemos el mismo re¬ 
sultado pulsando ALT-(-Cursor abajo. Nos lle¬ 
va el cursor a la siguiente línea sin ejecutár¬ 
nosla. 

— Control-K: CLR total hacia la de¬ 
recha. 

Nos elimina los caracteres desde donde se 
encuentre el cursor hasta el final de línea. Es¬ 
ta orden se utiliza cuando estemos modifican¬ 
do líneas editadas para su mejor correción. Es¬ 
ta orden también la encontramos en el 8256 
pulsando al mismo tiempo ALT y la tecla de 
Borrar hacia la derecha. 

- Control-M: RETURN. 

En nuestro ordenador disponemos de dos te¬ 
clas para la introducción de órdenes por te¬ 
clado al ordenador, son el RETURN y el EN- 
TER (o INTRO en España). Pues bien, dispo¬ 


nemos de otra forma de meter órdenes a tra¬ 
vés del teclado no tan cómoda pero realiza 
la misma función, M nos ejecuta un CARRIE- 
RETURN. 

— Control-P: Switch de impresora. 

Esta orden funciona como un interruptor de 
la «luz». Si lo pulsamos se activa y si lo vol¬ 
vemos a pulsar se desactiva. Cuando está co¬ 
nectado, todos los caracteres enviados a la 
consola se dirigen también al mecanismo de 
listado del CP/M. 

Si nos hemos planteado alguna vez cómo 
poder realizar un listado de un CAT o un DIR 
de un disco, con este comando lo hemos re¬ 
suelto. 

Si activamos la impresora con P y a conti¬ 
nuación le pedimos un DIR, automáticamente 
nos quedará reflejado en el papel el mensaje 
del Promt y la orden de DIR, y todo el conte¬ 
nido del disco. 

Como anécdotas, podemos decir también 
que este código lo encontramos en el CPC 
6128 en la tecla de CLR. Cuando la pulsamos 
por primera vez activamos el canal de la im¬ 
presora y si volvemos a pulsarlo lo desactiva¬ 
mos. 

Cuando realicemos un arranque en calien¬ 
te, el canal de la impresora se encuentra en 
off. Uno de los defectos que tiene esta utiliza¬ 
ción es que los controladores internos de la im¬ 
presora no se comportan de forma muy inte¬ 
ligente si la impresora está desconectada o no 
preparada cuando el programador o el pro¬ 
grama le piden que impriman. Con lo cual de¬ 
bemos tener mucho cuidado con la utilización 
de este comando. 

Pues si no tenemos preparada la impreso¬ 
ra y por casualidad nos hemos equivocado al 
pulsar la tecla de borrar (Delete) un carácter, 
y por estar tan próximas hemos pulsado las 
de CLR, el ordenador se nos colgaría y ten¬ 
dríamos que inicializar el equipo por comple¬ 
to. Esta es una orden directa para el PCW 
8526, se encuentra en la tecla de función 
F7/F8. 

— Control-Q: Desbloquear la pan¬ 
talla. 

Cuando utilizamos una detención de la pan¬ 
talla para la comprobación de datos o buena 
realización del programa, utilizamos esta or¬ 
den para renanudar su curso. Normalmente 
se emplea después de introducir un Control- 
S. En el PCW la obtenemos automáticamente 
pulsando F3/F4. 

— Control-R: Repetir línea. 

Cuando ejecutamos una orden Control-R, 
hacemos que el CCP repita o vuelva a escri¬ 
bir la línea en curso. 

El ordenador nos emite el carácter «#», un 
CARRIAGE RETURN/LINE FEED, y después to¬ 
do el contenido de la memoria interna de lí¬ 
nea de órdenes. 

Esta orden también varía un poco en el 
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PCW, en éste la tenemos en una sola teda 
«JUST». Podemos empezar a escribir desde 
el principio de la línea hasta la situación ac¬ 
tual del cursor. 

— Control-S: Bloquear la panta¬ 
lla. 

El comando Control-S nos detiene momen¬ 
táneamente la ejecución (o salida por con¬ 
sola) de un programa. El efecto es idéntico 
al que se produce cuando durante un listado 
por pantalla pulsamos la tecla de ESC, la pan¬ 
talla se nos bloquea para poder apreciar su 
información o la realización de cierto progra¬ 
ma. La orden es el carácter de ASCII XOFF, 
es la abreviatura de «Transmit Off». Po¬ 
demos decir que es un interruptor para conec¬ 
tar y desconcectar la salida por la consola. Po¬ 
demos desbloquearlo mediante la pulsación de 
otra tecla o el propio S. Pero lo más normal 
es que se realice mediante un Q, evitando de 
esta manera la posibilidad que se rompa el 
progocolo de comunicación que exista con la 
consola. En el 8256 la tenemos directamente 
en la tecla de función F5/F6. 

— Control-U: Delete de línea. 

Otro comando muy práctico y peligroso a 
la vez. Nos elimina la línea en la cual tenga¬ 
mos posicionado el cursor. Este comando nor¬ 
malmente lo llevan todos los procesadores de 
textos siendo de gran utilidad para la depu¬ 
ración de documentos. Al borrar la línea in¬ 
troducida podemos anular todos los errores 
cometidos y empezar de nuevo. La orden se 
nos muestra en pantalla con un carácter «#», 
después de un CARRIE RETURN/LINE FEED y 
algunos espacios en blanco para dejar alinea¬ 
do el cursor. 

— Control-W: Repite la línea an¬ 
terior. 

En el interior de nuestra memoria, se busca 
la última línea que se encuentra en el buffer 
y nos la manda imprimir en la pantalla. Esto 
se puede realizar siempre y cuando no haya¬ 
mos introducido ningún carácter en la nueva 
línea. Si hemos introducido alguno, lo borra¬ 
ríamos y llamaríamos a la anterior línea. 

— Control-X: Delete total hacia la 
izquierda. 

Nos realiza un movimiento del cursor hacia 
el principio de línea de forma destructiva. Nos 
elimina todos los caracteres que tengamos ha¬ 
cia nuestra izquierda dejándonos los de la de¬ 
recha intactos. Al igual que K, tenemos la mis¬ 
ma facilidad de uso. Ahora utilizaremos la mis¬ 
ma función tan sólo variando la tecla de bo¬ 
rrado hacia la izquierda. 

— Control-Z: Final de cadena. 

Esta orden la emplearemos cuando halla¬ 
mos realizado una cadena con instrucciones 
como PIP y ED, al final de la misma, para in¬ 
dicar al CCP que es un fin lógico de cadena. 
Esta orden la obtenemos directamente en el 
PCW pulsando la tecla de función F1/F2. 
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Como poder Llenar 
mas Memoria Ram 


Si hojea las páginas de Microhobby Amstrad comprobará que una gran 
parte de los listados de los programas que habitualmente publicamos son 
bastante cortos. Teniendo cerca de 40K de RAM libres ■ para llenarlos de 
instrucciones Basic podemos decir que realmente utilizamos muy poca 
memoria de nuestro Amstrad cada vez que escribimos y ejecutamos uno de 

estos programas 

¿Qué le parece la ¡dea de poder almacenar varios programas Basic a la vez 
en la memoria? Y no sólo eso, sino que si además pudiéramos relacionar 
unos con otros y hacer que se ejecutara cualquiera de ellos... sena una 

maravilla. 



en la memoria, y al mismo tiempo, to¬ 
dos los programas de la serie de Pri¬ 
meros Pasos, por ejemplo, de una se¬ 
mana. Podríamos seleccionar uno, eje¬ 
cutarlo, seleccionar otro, ejecutarlo a 
su vez y comparar los resultados. Y 
también conseguiríamos evitar teclear 
repetidamente un listado o tener que 
acceder al disco o a la cinta con de¬ 
masiada frecuencia. 

Estas pudieran ser algunas de las 
múltiples aplicaciones que tendríamos 
al alcance de nuestra mano una vez 
que podamos disponer de esta facili¬ 
dad. Nos abre todo un nuevo y exten¬ 
so campo de posibilidades a la hora 
de utilizar nuestro ordenador. 

Por ejemplo, podríamos emplear un 
programa para modificar otro. No nos 
sería nada difícil escribir una utilidad 
para resumir un programa, eliminan¬ 
do todos los REMs que hubiera en su 
listado. Otra cosa que se nos ocurre 
es hacer una de búsqueda y sustitu¬ 
ción que nos permita cambiar los 
nombres de las variables, etc. 

Hemos citado algunas ideas que se 
nos han ocurrido, pero seguro que en 
este momento estarán pasando por su 
mente muchas más. 

El Programa que acompaña este ar¬ 
tículo nos permitirá almacenar y eje¬ 
cutar programas Basic en cualquier di¬ 
rección de la memoria. Esto quiere de¬ 
cir que vamos a poder cargar un pro¬ 


grama en la posición &1000, por ejem¬ 
plo, otro en la &2000 y un tercero en 
la &3000. Y además nos será posible 
seleccionar uno de ellos y ejecutarle. 

Tenemos la facilidad de elegir cual¬ 
quier cifra como dirección de comien¬ 
zo de carga pero precisamente por 
eso le aconsejamos que no lo haga 
alegremente. Escoja unas cantidades 
semejantes a &1000, que sean facili¬ 
tas, ya que si así lo hacemos va a re¬ 
sultarnos relativamente simple mante¬ 
nernos siempre al tanto de donde he¬ 
mos colocado cada uno de nuestros 
programas. 

Es necesario, también, que nos ase¬ 
guremos de que al escribir un progra¬ 
ma no lo hagamos sobre alguno an¬ 
terior que esté colocado en una de¬ 
terminada dirección. Sin embargo, con 
tantos Ks de memoria RAM como dis¬ 
pone nuestro ordenador, no va a re¬ 
sultarnos difícil encontrar un espacio li¬ 
bre. . 

El Programa I es un listado en Basic 
de la utilidad y el Programa II es otro 
listado de la misma, pero esta vez en 
lenguaje ensamblador. Elija el que me¬ 
jor le parezca. 

Cuando los ejecute verá como se le 
añaden algunos nuevos comandos al 
Basic de su Amstrad. En la Tabla I le 
proporcionamos una lista de los mis¬ 
mos. 

Analicémoslos con detenimiento. El 
primero es: 

IPRINT.PAGE 

Nos vas a imprimir el valor de una 
de las variables del sistema que hemos 
llamado PAGE. Está en la dirección 
&AE64 si posee el Basic 1.1, en la 
&AE81 si tiene el Basic 1.0. 

El segundo que nos encontramos es: 

ISET.PAGE, entero 


y, como probablemente ya habrá adi¬ 
vinado, establece el valor que va a te¬ 
ner la variable PAGE. 

Cuando introduzca en memoria un 
programa o lo cargue desde una cin¬ 
ta o un disco, el código generado por 
las instrucciones Basic se almacenará 
a partir de la posición siguiente a la 
indicada por PAGE. Si escribimos el 
comando SAVE, el ordenador nos va 
a salvar el programa que se encuen¬ 
tre en la memoria colocado donde nos 
indique PAGE. Y lo mismo ocurre si te¬ 
cleamos RUN. Lo que se nos va a eje¬ 
cutar es el señalado por la variable 
PAGE. 

Si cambiamos su valor, podemos 
meter en memoria otro programa sin 
alterar el que ya teníamos en la mis¬ 
ma siempre que, naturalmente, no lo 
escribamos encima. 

No es cuestión más que de cambiar 
una de las variables del sistema. Si 
queremos volver a nuestro programa 
primitivo y devolver a page su valor 
original, no podremos hacerlo mági¬ 
camente. Es necesario que se lo indi¬ 
quemos correctamente al ordenador. 

Además de conocer dónde comien¬ 
za un programa, en Basic también 
puede sernos necesario saber dónde 
termina. Esta dirección almacena, 
igualmente, en otra de las variables 
del sistema a la que llamamos TOP. 

El Basic necesita conocer su valor, ya 
que a partir de esta posición es don¬ 
de se almacenan las variables cuan¬ 
do el programa se está ejecutando. 

También van a ser muy importantes 
otro tipo de apuntadores. Son los que 
le van a decir al interpretador Basic el 
punto donde termina la zona de me¬ 
moria destinada a contener las distin- 
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tas variables que, como anteriormen¬ 
te dijimos, van a estar situadas al fi¬ 
nal del programa a partir de la direc¬ 
ción señalada por TOP. 

Al resultar todos estos apuntadores, 
restablecemos al mismo tiempo el pro¬ 
grama original, que podemos ejecu¬ 
tar otra vez. 

Las variables, sin embargo, se per¬ 


derán, y le aconsejamos que teclee 
CLEAR siempre que cambie el valor de 
PAGE. 

La utilidad realiza todo esto automá¬ 
ticamente. Así que si alteramos PAGE, 
la rutina examina si Hay almacenado 
algún programa en la nueva dirección. 
Si no hay ninguno, o no podemos ele¬ 
gir el programa existente debido a que 


lo hayamos «manchado», se ejecuta 
inmediatamente el comando: 
INEW.PROGRAM 

Esta orden suprimirá el programa 
que haya en la dirección señalada por 
PAGE sin destruir ninguno de los otros 
que comparten en ese momento la 
memoria. La instrucción Basic NEW 
limpia todo lo que haya en la misma, 
así que utilícela con cuidado. 

Un programa puede necesitar cono¬ 
cer en un determinado momento que 
PAGE, TOP y LOMEM tiene. Veamos 
qué es esta última palabra: LOMEM 
es la dirección más baja de la zona de 
memoria que está libre. ¿Correcto? 

Pero, ¿cómo vamos a saber el valor 
de cada una de estas tres variables? 
La utilidad PAGE nos va a proporcio¬ 
nar tres nuevos comandos para que lo 
podamos hacer con toda facilidad. 
IGET.PAGE 
IGET.TOP 

IGET. LOMEM 

toman el valor actual de cada una de 
estas variables del sistema y lo coloca 
en una, definida como entera, del len¬ 
guaje Basic. 

Si hacemos: 

a%=0 

y a continuación: 

IGET. PAGE, ^a% 

la variable entera contendrá ahora el 
valor que tiene en este momento PA¬ 
GE. 

Podemos hacer los mismo para TOP 
y LOMEM. ¿Se atreve? 

"PAGE” es una utilidad extremada¬ 
mente usada y de una gran ayuda a 
la hora de programar. Nos permite 
conseguir todas las ventajas de la ge¬ 
nerosa cantidad de memoria RAM 
que posee nuestro Amstrad. 

Anímese. Coja una de nuestras re¬ 
vistas y seleccione varios programas 
pequeños. Cargue cada uno de ellos 
en una posición seleccionada por el 
comando: 

I SET. PAGE 

siguiendo las indicaciones que le he¬ 
mos dado y se encontrará con que la 
memoria de su ordenador está com¬ 
partida por todos ellos y utilizada con 
un rendimiento bastante mayor. ¡Suer¬ 
te! 


IPRINT.PAGE 
ISET.PAGE,integer 
IGET. PAGE, 4 [variable% 
IGET TOP,f1ariable% 
IGET. LOMEM, ífvariable% 
INEW.PROGRAM 

Tabla 1. Comandos nuevos 
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10 ORG #A000 

20 ; 

30 ;* * * * * INICIALIZAR RSX ***** 
40 ; 


50 

LD 

HL ,i 1ags 

60 

BIT 

1, (HL) 

70 

RET 

NZ 

80 

SET 

1,(HL) 

90 

LD 

BC,tablasal 

100 

LD 

HL,workspace 

110 

CALL 

#BCD1 

120 

CALL 

#B900 

130 

PUSH 

AF 

140 

LD 

A,(#C002> 

150 

AND 

A 

160 

JR 

Z,inicial izar 

170 

LD 

HL,#AE64 

180 

LD 

(PAGIN1),HL 

190 

LD 

(PAGIN2),HL 

200 

LD 

(PAGIN3),HL 

210 

LD 

(PAGIN4),HL 

220 

LD 

HL,#AE17 

230 

LD 

(DAT01),HL 

240 

LD 

(DAT02),HL 

250 

LD 

HL,#AE5E 

260 

LD 

(HIMEM),HL 

270 

LD 

HL,#AE66 

280 

LD 

(SUP1),HL 

290 

LD 

(SUP3),HL 

300 

LD 

HL,#AE6B 

310 

LD 

(SUP2),HL 

320 

LD 

HL,#AE6A 

330 

LD 

(ARRAY),HL 

340 

LD 

HL,#AE6C 

350 

LD 

(MEMAL1),HL 

360 

LD 

(MEMAL2),HL 

370 

LD 

HL,#AE1D 

380 

LD 

(EJELIN),HL 

390 inicializar: 


400 

POP 

AF 

410 

CALL 

#B90C 

420 

CALL 

cadena 

430 

DEFB 

„U“,"t",“i" 

440 

DEFB 

" 1", " i ", " d " 

450 

DEFB 


460 

DEFB 

"P","A","8“ 

470 

DEFB 

"E ",“ “," a " 

480 

DEFB 

"c“, “t","i" 

490 

DEFB 

•’v", "a", "d“ 

500 

DEFB 

"a", " . " , 7 

510 

DEFB 

04 

O 

O 

520 

RET 


530 S 



540 ¡* DAR 

NUEVO 

VALOR A PAGE 

550 ; 



560 pagina: 



570 

DEC 

A 

580 

JP 

NZ,errorpar 

590 

CALL 

chequeo 

600 

LD 

E,(IX+O) 

610 

LD 

D,(IX+1) 

620 

LD 

H! , (#AE7P> 

630 HIMEM: 

EQU 

S-2 

640 

DEC 

H 

650 

PUSH 

HL 

660 

AND 

A 

670 

SBC 

I 

r 

o 

m 

680 

JP 

C,nositi o 

690 

LD 

HL,#016C 

700 

SBC 

HL, DE 

710 

EX 

DE, HL 

720 

POP 

DE 

730 

JP 

NC,nopuedo 

740 

LD 

(#AE81),HL 

750 PAGIN1: 

: EQU 

S-2 

760 

LD 

(#AE30>,HL 

770 DAT01: 

EQU 

S-2 

7B0 

LD 

A, (HL) 

790 

AND 

A 

800 

JR 

NZ, nueva 

810 

INC 

HL 

820 1 i nueva: 


830 

LD 

C,(HL) 

840 

INC 

HL 

850 

LD 

B, (HL) 

860 

LD 

A, B 


870 


AND 

A 

880 


JR 

NZ,nueva 

890 


OR 

C 

900 


JR 

Z,varpointer 

910 


DEC 

HL 

920 


ADD 

u 

X 

930 


PUSH 

HL 

940 


AND 

A 

950 


SBC 

HL, DE 

960 


POP 

HL 

970 


JR 

C, 1 inueva 

980 

5 



990 

;********** NEW ********* 1 

1000 

5 



1010 

nueva: 



1020 


LD 

HL,(#AE81) 

1030 

PAGIN2: 

EQU 

S-2 

1040 


LD 

(#AE30>,HL 

1050 

DAT02: 

EQU 

S-2 

1060 


LD 

(HL),#00 

1070 


INC 

HL 

1080 


LD 

(HL),#00 

1090 


INC 

HL 

1100 


LD 

(HL),#00 

1110 

varpointer: 


1120 


INC 

HL 

1130 


LD 

(#AE83),HL 

1140 

SUP1: 

EQU 

S-2 

1150 


LD 

(#AEB5),HL 

1160 

SUP2: 

EQU 

S-2 

1170 


LD 

(#AEB7),HL 

1180 

ARRAY: 

EQU 

S-2 

1190 


LD 

<#AEB9),HL 

1200 

MEMAL1: 

EQU 

S-2 

1210 


CALL 

cadena 

1220 


DEFB 

“o","k",13 

1230 


DEFB 

10,7,0 

1240 


RET 


1250 




1260 

;* PONER PAGE EN VARIABLE 

1270 

i 



1280 

cogerpag: 


1290 


DEC 

A 

1300 


JP 

NZ,errorpar 

1310 


LD 

DE,(#AE81) 

1320 

PAGIN4: 

EQU 

S-2 

1330 

cp: 



1340 


LD 

L,(IX+O) 

1350 


LD 

H,(IX+1) 

1360 


LD 

<HL),E 

1370 


INC 

HL 

1380 


LD 

(HL),D 

1390 


RET 


1400 

5 



1410 

;* PONER TOP 

EN VARIABLE 

1420 

? 



1430 

superior: 


1440 


DEC 

A 

1450 


JP 

NZ,errorpar 

1460 


LD 

DE.(#AE83) 

1470 

SUP3: 

EQU 

S-2 

1480 


JR 

cp 

1490 

• 



1500 

;* PONER LOMEM EN VARIABL. 

1510 

1omem: 



1520 


DEC 

A 


1530 


JP 

NZ,errorpar 

1540 


LD 

DE,(#AE89> 

1550 

MEMAL2: 

EQU 

S-2 

1560 


JR 

CP 

1570 

1 



1580 

;***** 

ESCRIBIR CADENA ** 

1590 

1 



1600 

cadena: 



1610 


POP 

HL 

1620 

sp 1: 



1630 


LD 

A,(HL) 

1640 


CALL 

#BB5A 

1650 


INC 

HL 

1660 


OR 

A 

1670 


JR 

NZ,sp1 

1680 


JP 

(HL) 

1690 

1 



1700 

;***** 

ESCRIBIR PAGE **** 

1710 

1 



1720 

escribir: 


1730 


LD 

A, #26 

1740 


CALL 

#BB5A 

1750 


LD 

HL,(#AE81) 

1760 

PAGIN3: 

EQU 

S-2 

1770 

1 



1780 

5** ESCRIBIR 

PALABRA HEX 

1790 

1 



1800 

hexpal: 

LD 

A, H 

1810 


CALL 

hex 

1820 


LD 

A, L 

1830 

» 



1840 

1*** ESCRIBIR BYTE HEX ** 

1850 

1 



1860 

hex i 

PUSH 

AF 

1870 


RRCA 


1880 


RRCA 


1890 


RRCA 


1900 


RRCA 


1910 


CALL 

hex 1 

1920 


POP 

AF 

1930 

hex 1: 

AND 

#0F 

1940 


ADD 

A, #90 

1950 


DAA 


1960 


ADC 

A, #40 

1970 


DAA 


1980 


JP 

#BB5A 

1990 




2000 

;******** ERRORES ******* 

2010 

5 



2020 

nopuedc 

: 


2030 


CALL 

cadena 

2040 


DEFB 

"N","o"," " 

2050 


DEFB 

"p","u","e" 

2060 


DEFB 

“d","o“," " 

2070 


DEFB 

"h","a","c" 

2080 


DEFB 

"e","r " , " 1 " 

2090 


DEFB 

"o",“!13 

2100 


DEFB 

10,7,0 

2110 


RET 


2120 

; 



2130 

nositio: 


2140 


POP 

HL 

2150 


CALL 

cadena 

2160 


DEFB 

"N","o"," ” 

2170 


DEFB 

"h","a","y" 

2180 


DEFB 

ll ii il _ il II i •• 

* 5 * 1 
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2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 



DEFB 

"t","i ",“o" 


DEFB 

13,10 


DEFB 

7,0 


RET 


error: 

CALI. 

cadena 


DEFB 

"E","r","r" 


DEFB 

“o","r"," " 


DEFB 

"R","S","X" 


DEFB 

13,10,7 


DEFB 

0 


RET 


9 

chequeo: 


LD 

HL,<#AE36> 

EJELINi 

EQU 

*-2 


LD 

A, H 


OR 

L 


RET 

Z 


F'OP 

HL 


CALL 

cadena 


DEFB 

"P","r","o" 


DEFB 

"g","r","a" 


DEFB 

>■ m" II 3 II II •• 

m , a , 


DEFB 

"ca" "n" " " 

e 9 n !• 


DEFB 

"e" 


DEFB 

"c'V’u", "c" 


DEFB 

"i ","o","n" 


DEFB 

"!", 13,10 


DEFB 

7,0 


RET 


errorpar: 



CALL 

cadena 


DEFB 

"0","1 ","v" 


DEFB 

"i ","d","o" 


DEFB 

" ","d","e" 


DEFB 

II II tipil II £11 


DEFB 

"0","E“,"!" 


DEFB 

13,10,7 


DEFB 

RET 

0 


;***» TABLA DE SALTOS **** 


tablasal i 

DEFW 

nomtabla 

JP 

escribir 

JP 

nueva 

JP 

pagina 

JP 

cogerpag 

JP 

superior 

JP 

1 omem 


|*«** TABLA DE NOMBRES **** 


nomtablas 


DEFB 

"P","R">"I" 

DEFB 

"N","T", ". " 

DEFB 

"P", "A", "G" 

DEFB 

#C5 

DEFB 

“N","E","W" 

DEFB 

","P","R" 

DEFB 

"0","G","R" 

DEFB 

"A",#CD 

DEFB 

"S" , "E", "T" 

DEFB 

".",”P","A" 

DEFB 

"G",#C5 

DEFB 

"G","E","T" 

DEFB 

" . ", “P","A" 

DEFB 

"G",#C5 

DEFB 

"G","E","T" 

DEFB 

" T ", "0" 

DEFB 

#D0 

DEFB 

"G”,"E","T" 

DEFB 

"L","0“ 

DEFB 

"M","E",#CC 

DEFB 

#00 


workspace: 

DEFW #00 
DEFW #00 
5 

f1ags: 

DEFB #0 


10 

REM UTILIDAD "PAGINA" 

20 

REM DE R.A.WADDILGVE 

30 

REM (c) MICRGHGBBY AMSTRAD 

40 

REM CALL &A000 para ??????? 

50 

MEMORY ?<9FFF: di rece i on=S<A000 

60 

FOR i 

=1 TO 44 

70 

suma= 

D:READ cod i cjo$, chequeo? 

80 

FOR j 

=1 TO 21 STEP 2 

90 

Dyte= 

v>AL<"&"+MID$ <codigo$, j,2) ) 

100 

POKE 

di rece ion , byte 

110 

suma 

=suma+byte:direccion=direcc 

i on+1 


120 

NEXT 

j 

130 

IF suma< >VAl. ( "?'."+chequeo$) THEN 

PRINT " 

ERROR DE DATOS EN LA LINEA 

140+1*10 

140 

NEXT 

I 

150 

DATA 

21E7A1CB4EC0CBCE0199A1,656 

160 

DATA 

21E3A1CDD1BCCD00B9F53A,6B4 

170 

DATA 

02C0A728422164AE229CA0,464 

180 

DATA 

22BAA02214A122E4A02117,431 

190 

DATA 

AE229FA022BDA0215EAE22,4DD 

200 

DATA 

87A02166AE22C9A022F6A0,59F 

210 

DATA 

2168AE22CCA0216AAE22CF,4EF 

220 

DATA 

A0216CAE22D2A02200A121,453 

230 

DATA 

1DAE2267A1F1CD0CB9CD04,549 

240 

DATA 

A150616765205574696C69,445 

250 

DATA 

7479206F6B2E070D0A00C9,2FC 

260 

DATA 

3DC285A1CD66A1DD5E00DD,611 

270 

DATA 

56012A7BAE25E5A7ED52DA,574 

280 

DATA 

45A1216C01ED52EBD1D22F,570 

290 

DATA 

A12281AE2230AE7EA72014,44B 

300 

DATA 

234E734678A7200CB12817,315 

31 0 

DATA 

2B09E5A7ED52E138ED2A81,5B0 

320 

DATA 

AE2230AE36002336002336,296 

330 

DATA 

00232283AE2285AE22B7AE,422 

340 

DATA 

2289AECD04A16F6B0D0A07,3C3 

350 

DATA 

00C93DC2B5A1ED5B81AEDD,642 

360 

DATA 

6E00DD6601732372C93DC2,482 

370 

DATA 

85A1ED5BB3AE18EC3DC285,627 

380 

DATA 

A1ED5B89AE18E2E17ECD5A,6A0 

390 

DATA 

BB23B720F8E93E26CD5ABB,5DC 

400 

DATA 

2A81AE7CCD1BA17DF50F0F, 4EE 

410 

DATA 

0F0FCD24A1F1E60FC69027,513 

420 

DATA 

CE4027C35ABBCD04A14361,523 

430 

DATA 

6E277420646F2074686174,3CD 

440 

DATA 

210D0A0700C9E1CD04A14E , 3A9 

450 

DATA 

6F20726F6F6D0D0A0700C9,333 

460 

DATA 

CD04A1525358206572726F , 447 

470 

DATA 

720D0A0700C92A36AE7CB5 , 398 

480 

DATA 

CSE1CD04A150726F677261,586 

490 

DATA 

6D2072756E6E696E6721OD,3BC 

500 

DATA 

0A0700C9CD04A1466F7267,3DA 

510 

DATA 

6F742050414745210D0A07,25F 

520 

Dfi‘ r A 

00C9ADA1C30EA1C3B9A0C3,668 

530 

DATA 

79A0C3DEA0C3F0A0C3FAA0 , BOA 

«=■ A /-» 

WTV 

D/'TA 
un i n 

er. { V=;n.fl nrci^/j i /T7r «=: /I CT 7AZ. 

550 

DATA 

■0 5572E50524F475241CD53« 3B5 

560 

DATA 

45542E504147C54745542E,372 

570 

DATA 

50414 7C54745542E544FD0,41E 

580 

DATA 

4745542E4C4F4D45CD0000,308 
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Prueba 

Comparativa de 
Basics 

El Basic es, sin duda alauna, el idioma más 
hablado por los ordenadores personales. Esto 
debería significar que un programa realizado con 
cualquiera de ellos, valdría sin más para los 
demás. Pero como todos sabemos esto dista de 
ser una realidad. Hemos probado algunos de los 
ordenadores más vendidos del mercado, para 
comparar sus «Basic's» y ver sus peculiaridades. 



dos son, ademas del Amstrad CPC, el Spec- 
trum, el QL, un MSX, el Commodore, y como 
punto de comparación hemos elegido el Ba¬ 
sic Microsoft que usan multitud de ordenado¬ 
res, probando su velocidad en dos de los más 
famosos: el IBM PC y el APPLE Macintosh. 



Resulta evidente que estos dos ordenadores 
están a un precio superior a los demás, (por 
lo menos hasta que Amstrad compre las fá¬ 
bricas de IBM y APPLE, cosa que nunca se sa¬ 
be...) pero es conveniente incluirlos como pun¬ 
to de referencia, dado que el Basic que utili¬ 
zan es el que más se acerca a un estándar. 

Otra advertencia que hay que hacer, bási¬ 
camente para las pruebas de velocidad, es que 
tanto el IBM como el Macintosh y el QL son 
distintos a los demás a nivel de Hardware, y 
entre otras cosas el microprocesador es dis¬ 
tinto del Z-80 que llevan los demás, lo que ha 
influido en muchos aspectos, sobre todo en el 
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aspecto de la velocidad, llevándonos alguna 
vez a resultados curiosos, por no decir sor¬ 
prendentes... 

Para la realización de este estudio, se han 
incluido unos bancos de pruebas pensados pa¬ 
ra calcular el tiempo que tarda cada Basic en 
realizar alguna de las cosas más comunes den¬ 
tro de un programa. Pero hay que advertir que 
la validez de las pruebas de velocidad es re¬ 
lativa. Tienen el valor que se les quiera dar, 
ni más ni menos, pero se han incluido para te¬ 
ner una referencia más, entre otras que tam¬ 
bién se proporcionan. Pero no busquen una 
clasificación final. No la hay. Simplemente en¬ 
contrarán las características principales de ca¬ 
da uno de ellos, en qué aspectos destacan, y 
en cuáles fallan. Si uno es mejor o peor que 
otro es cuestión de las necesidades de cada 
usuario, y en consecuencia de lo que éste le 
vaya a pedir. 


Bancos de prueba 

Se han realizado a cada ordenador cinco 
pruebas distintas, cuyos listados aparecen en 
el cuadro adjunto. El primer banco de prue¬ 
bas mide el tiempo que tarda cada ordena¬ 
dor en realizar una operación matemática que 
incluye funciones trigonométricas. Se han ele¬ 
gido este tipo de funciones con una razona¬ 
ble dosis de mala uva. La realización de ope¬ 
raciones trigonométricas exige al ordenador 
la creación y manejo (internamente) de unas 
tablas, por lo que el tiempo que se tarda es 
mayor que en otro tipo de operaciones. 

La segunda prueba que se les ha puesto es 
para medir el tiempo que tarda en realizar 
operaciones de lectura y escritura en disco. Es¬ 
ta prueba sólo se ha hecho en el Amstrad, 
el IBM PC y el Macintosh, que son los únicos 


que llevan dicha unidad incorporada. En los 
demás, dado que realizarla con cassette era 
claramente injusto, y que en algún caso aun¬ 
que se puedan conectar unidades de distintas 
marcas y sistemas, éstas no van incluidas en 
el «equipo básico» del mismo, hemos de¬ 
cidido liberarles de esta prueba. La prueba en 
sí, consiste en crear un fichero secuencial, gra¬ 
bar doscientos datos, cerrar el fichero, volverlo 
a abrir, leer los doscientos datos, presentar¬ 
los en pantalla y cerrar el fichero. 

En la tercera prueba se han gastado las dosis 
que quedaban de mala uva. Se trata de or¬ 
denar alfabéticamente por el conocido y len¬ 
to método de la burbuja, quince matrices di¬ 
vididas en tres grupos, en cada uno de los cua¬ 
les las matrices eran muy parecidas. El traba¬ 
jo con matrices alfanuméricas es otra de las 
facetas que los ordenadores suelen manejar 
con cierta lentitud. 

La cuarta prueba tiene dos objetivos. El pri¬ 
mero es medir el tiempo que tarda el ordena¬ 
dor en realizar un bucle, y el segundo es veri¬ 
ficar la exactitud de las operaciones numéri¬ 
cas. El programa consiste en sumar mil veces 
0,001. Esto, naturalmente da como resultado 
1. Ahora bien, algunos ordenadores utilizan 
un método de cálculo interno muy peculiar que 
hace que el resultado de esta operación se 
aproxime mucho a uno, sin serlo. Se ha evita¬ 
do el habitual redondeo, para comprobar el 
resultado exacto. 

La última prueba mide el tiempo que tarda 
el ordenador en llenar la pantalla con texto 
y después borrarla. A pesar de las diferentes 
maneras que tienen los ordenadores de ges¬ 
tionar la pantalla, aquí los resultados no han 
sido ni divertidos ni sorprendentes. Más bien 
han sido normales. Pero pasemos a comentar 
los resultados de cada prueba. Que cada or¬ 
denador se levante al oír su nombre, para es¬ 
cuchar los resultados de sus pruebas. Los que 
suspendan algún parcial, podrán volverse a 
examinar en septiembre. (Vaya por Dios, ya 
me he liado. En qué estaría yo pensando...). 


1) Velocidad de cálculo 

Los resultados en esta prueba han sido por 
lo menos, curiosos. El QL de Sinclair demues¬ 
tra ser el más rápido con diferencia, mientras 
el Macintosh logra un pésimo penúltimo pues¬ 
to, aventajando sólo al Spectrum. (Ya po¬ 
drá...). El Amstrad logra un honorable ter¬ 
cer lugar, a dos décimas de segundo de todo 
un IBM. Commodore y MSX hacen unos tiem¬ 
pos medios. 


2) Lectura y escritura 
de ficheros 

Aquí sólo se le ha hecho la prueba a los tres 
ordenadores que llevan unidad de disco inte¬ 
grada, y los resultados son de lo más norma- 




















































les. El Amstrad queda descolgado de los 
IBM y Macintosh, cuya tecnología es mucho 
más avanzada, y su sistema operativo más mo¬ 
derno. 


3) Ordenación por el método 
de la burbuja 

Esta prueba nos depara otra sorpresa. Los 
tiempos en todos los ordenadores son simila¬ 
res excepto en uno. Y resulta curioso porque 
habiendo dos ordenadores de la misma mar¬ 
ca en estas pruebas, no es el más barato el 
peor, no, sino el otro. El QL, que hace un tiem¬ 
po sensiblemente superior a los demás, catorce 
segundos frente al más rápido. El Amstrad, 
sólo es superado por «los caros», IBM y 
Macintosh. 


4) Cálculo numérico 

Como hemos dicho, esta prueba pretende 
determinar tanto la velocidad como la preci¬ 
sión a la hora de hacer determinados cálcu¬ 
los numéricos. En cuanto a la velocidad, el que 
más se sale de la media es el Commodore, y 
un poco menos el Spectrum. Los demás hacen 
los tiempos que se puede esperar de ellos, que¬ 
dando el Amstrad muy bien clasificado, en 
la segunda posición, sólo superado por el Ma¬ 
cintosh. 

Y en precisión, tres ordenadores no dieron 
el resultado deseado, que era 0. Estos son 
Amstrad, Commodore y Spectrum. Aquí hay 
que insistir que esto se debe al sistema inter¬ 
no de cálculo de cada uno, y el redondeo o 
truncación que hacen a partir de un número 
de decimales. No tiene tanta importancia co¬ 
mo parece. 


5) Rapidez en presentación 
de textos 

Esta prueba presenta dos grupos de resul¬ 
tados. El primero, los rápidos, compuesto por 
Commodore, MSX, Spectrum, QL y IBM. El se¬ 
gundo, los lentillos, compuesto por Macintosh 
y Amstrad. No obstante, se está hablando 
de una diferencia máxima de cuatro segundos 
entre el más rápido y el más lento, lo que re¬ 
sulta poco apreciable. 


6) Media de resultados 

Si se observa la media realizada por cada 
ordenador en las cuatro pruebas que han rea¬ 
lizado todos, el más veloz es el IBM. Pero sor¬ 
prendentemente, el Amstrad resulta ser más 
veloz que los demás, en promedio. Natural¬ 
mente esto no quiere decir que sea el mejor, 
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ni que los demás sean muy malos. Simplemen¬ 
te, el Basic Locomotiv resulta ser un Basic fran¬ 
camente rápido. En cuanto a la diferencia de 
tiempo entre el IBM y el Macintosh, que usan 
el mismo Basic, se debe seguramente más a 
razones de Hardware que de Software. El QL 
se sitúa en una posición media, que no dice 
nada a favor ni en contra de él. 



7) jCondusiones? 

Cada cual a la vista de los resultados, pue¬ 
de sacar las suyas. Incluso se podrían poner 
otro tipo de pruebas, y seguramente los resul¬ 
tados no serían los mismos. Esta es la razón 
por la cual este tipo de pruebas cuentan con 
bastante oposición. Pero la realidad es que 
tampoco nadie se pone de acuerdo para bus¬ 
car un método mejor. 


Repaso 

a las Instrucciones 
de los distintos Baslc's 


Además de lo dicho hasta ahora, vamos a 
darle un repaso a las posibilidades que tienen 
los distintos Basic's, expresadas por la canti¬ 
dad de instrucciones que cada uno de ellos po¬ 
seen y sus posibilidades, y divididas por gru¬ 
pos, según su función. 


1) Comandos de manejo 
de ficheros 

Se pretende saber las posibilidades que tie¬ 
ne cada ordenador para manejar ficheros, y 
el alcance de las mismas. 

El MSBasic del IBM y MAC, fueron casi a to¬ 
pe, y de manera similar en ambos. Posee co¬ 
mandos para operar con ficheros secuencia- 
les y aleatorios, permitiendo en los secuencia- 
les añadir registros en ficheros ya existentes. 
Una opción interesante en el IBM, es que se 
puede tener abierto un fichero de dos mane¬ 
ras diferentes con distinto número con lo que 
se puede acceder simultáneamente de mane¬ 
ra secuencial y al azar, o secuencialmente pa¬ 
ra entrada y salida de datos. Permite tener 
hasta quince ficheros abierto a la vez. No ges¬ 
tiona ficheros indexados, aunque por otra par- 


M. AMSTRAD ESPECIAL 83 




























te en ordenadores de este precio para abajo, 
creo que sólo lo hace el nuevo PCW 8256. 

El Locomotiv Basic de Amstrad maneja 
simplemente los ficheros secuenciales sencilli- 
tos. A pesar de la unidad de disco integrada 
en el CPC 664 (R.l.P.) y 6128, no tiene pre¬ 
vistos comandos para usar ficheros aleatorios, 
teniendo que recurrir a una rutina en código 
máquina, que no es lo que se puede llamar 



«un modelo de perfección». En resu¬ 
men, muy mejorable. 

El QL, flamante demostración de tecnología 
de la mano de Sinclair, posee su propio siste¬ 
ma de almacenamiento. Son los Microdrives, 
pequeños cartuchos de cinta magnética. Aun 
siendo más rápidos y cómodos que el casset¬ 
te, y teniendo en cuenta que viene con dos uni¬ 
dades incluidas en la máquina, cosa muy útil, 
no se aproxima ni a la velocidad ni a la efec¬ 
tividad del disco. Tampoco puede usar fiche¬ 
ros de acceso aleatorio. Los comandos que 
ofrece para la gestión de los ficheros secuen¬ 
ciales incluyen la posibilidad de modificar da¬ 
tos ya grabados. Por esta parte, bien. El res¬ 
to, normal. 

En el Commodore sí está prevista la insta¬ 
lación de unidad de disco a nivel de Basic, ade¬ 
más de los habituales de ficheros secuencia¬ 
les. Su manejo y sintaxis son comunes, no ofre¬ 
ciendo ninguna complicación. 

El Basic resto de los ordenadores sólo tie¬ 
nen previsto el uso de ficheros secuenciales. 
Al conectar la unidad de disco, el sistema ope¬ 
rativo del mismo debe proporcionar dichos co¬ 
mandos, de una u otra manera, pero en el Ba¬ 
sic original de la máquina, ni rastro. 


2) Comandos gráficos 

El MSBasic dibuja en el IBM PC con dos po¬ 
sibles resoluciones. 320 x 200 puntos con 4 co¬ 
lores, y 640x200 puntos con 2 colores. Dis¬ 
pone de once comandos para el dibujo de grá¬ 
ficos. Permite definir las coordenadas de di¬ 
bujo en cifras absolutas y relativas al último 
punto dibujado, pero no ofrece SPRITES. El re¬ 
sultado final bueno, pero mejorable. 

En cuanto al Macintosh, su sistema de dibujo 
es muy bueno, pero diferente. Se hace recu¬ 
rriendo al firmware, pero no poniendo la di¬ 
rección de memoria que dibuja el gráfico, si- 
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no su nombre. Así resulta más fácil de utilizar, 
y la calidad lograda es grande, aunque en 
blanco y negro dado que el monitor que lle¬ 
va incorporado no es en color. 

El Basic Locomotiv dispone de varias instruc¬ 
ciones para la realización de gráficos en 3 an¬ 
churas de pantalla. El número de colores si¬ 
multáneos depende de ésta, oscilando entre 
ocho y dos colores dentro de una paleta de 
26. La gestión de estos colores resulta un po¬ 
co liosa, sobre todo al principio, pero permi¬ 
te multitud de cosas, como rellenar dibujos... 
En gráficos, diversos comandos permiten rea¬ 
lizar una gama de dibujos muy amplia, así co¬ 
mo definir las coordenadas absoluta y relati¬ 
vamente. Quizá el único «pero» que se le 
puede poner es que no cuenta con ninguna 
función ya definida para realizar algún gráfi¬ 
co en concreto, (porejemplo CIRCLE...) ni de¬ 
finición directa de SPRITES. A pesar de esto, 
buena nota. 

El QL puede dibujar con ocho o cuatro co¬ 
lores, según la resolución que se use. Admite 
512x256 puntos y 256 x 256 puntos. Tiene un 
amplio repertorio de comandos gráficos, y es 
bastante fácil de entender y usar. Hay que dar¬ 
le muy buena nota. 

El Commodore es famoso por sus gráficos. 
Se pueden programar hasta ocho SPRITES, dis¬ 
pone de una paleta de dieciséis colores, alta 
y baja resolución, y... dos «hermosas» ins¬ 
trucciones para manejar todo esto: PEEK y PO- 
KE. Puede ser cuestión de gustos, pero pare¬ 
ce complicado de manejar sin el manual. 

El «modesto» Spectrum, tiene una pale¬ 
ta de ocho colores con dos niveles de brillo. 
Pero dentro de su modestia, el Basic se defien¬ 
de en una dignísima posición, contando con 
instrucciones más que suficientes para sacar¬ 
le partido y hacer buenos gráficos. 

Y el MSX Basic posee ocho instrucciones grá¬ 
ficas, sprites, y una paleta de quince colores. 
Resulta uno de los Basic's quizá más comple¬ 
tos en este aspecto, y además sus comandos 
son fáciles de entender y manejar. Muy bien 
en este aspecto. 

3) Comandos de manejo 
del microprocesador 

Aquí el MSBasic del IBM PC y el Macintosh 
no es lo que se dice el RAMBO de los lengua¬ 
jes Basic. Sólo dispone de una función de re¬ 
loj, pero no incorpora ninguna función para 
manejar interrupciones desde el Basic. Algu¬ 
no que otro le da sopas con honda. 

Uno de los que le superan es el Locomotive 
Basic, que dispone de cuatro instrucciones dis¬ 
tintas para programar interrupciones, que le 
permiten simular una gestión multiárea. Aquí 
el Locomotive alcanza una nota muy alta. 

El MSX Basic permite controlar interrupcio¬ 
nes a través de cuatro instrucciones. No es tan 
completo como el Locomotive, pero supera al 
resto de los ordenadores probados, por un 
amplio margen. 


10 *B.P. Calculo Trigonométrico. 

1 f5 DIM res*/. (11) 

20 FOR n=0 TO 10 STEP 1 

30 FOR j=l TO 5 

40 FOR k= 1 TO 5 

50 DEF FN-f une® SIN <2*F‘I / (n+1 ) * j ) *CC 

S<2*PI / (n+1 ) *k> 

60 res*/, (n+1 ) =res7. (n+1 ) +FN-f une 

70 NEXT k 

90 NEXT j 

90 PRINT "Para N= ";n; "la Función 
vale " ; res*/. (n+1 ) 

100 NEXT n 


10 * Prueba Numero 2 

20 REN tiempo de operación en -fiche 
ros. 

30 DIM x*<100>,y*<100> 

40 FOR a®1 TO 100 

50 READ x*(a>,y*(a> 

60 RESTORE 230 

70 NEXT a 

90 OPENOUT "Pruebas.dat" 

90 FOR a=l TO 100 

100 WRITE #9,x*(a>,y*(a> 

110 NEXT a 

120 CLOSEOUT 

130 OPENIN "Pruebas.dat" 

140 FOR a=l TO 100 

150 INPUT #9,x$(a), y% (a) 

160 NEXT 

170 CLOSEIN 

180 FOR a=1 TO 100 

190 PRINT x*(a),y*(a),"GRABADO"! 

200 NEXT 

210 PRINT "FIN" 

220 END 

230 DATA "ABCDEFGHIJ","0123456799" 

10 * Prueba Numero 3 

20 * Ordenación por el método de la 
burbuja 

30 DIM a*(15) 

40 FOR x = l TO 15 

50 READ aí(x> 

60 NEXT x 

70 FOR y=l TO 15 

80 FOR z=y+1 TO 15 

90 IF a*<z><a*<y) THEN b*=a*(y>: ai 
(y) =a* <z> : a* (z ) =b* 

100 NEXT z 

110 NEXT y 

120 FOR x = l TO 15 

130 PRINT a*(x> 

140 NEXT x 

150 DATA “AAAAAAAAAAAAAAAAAAAB"."AA 
AAAAAAAAAAAAAAAAA1 " , " A A A AA A A AA A AA AA 
AAAAA3","AAAAAAAAAAAAAAAAAAA ”,"AAA 
AAAAAAAAAAAAAAAA" 

160 DATA “ 12345abcde-f g 1 C^ADSÍA" , "Al 
alb5>Bc*Cd2D#34-/.e*¡ ", “ 12345abcd@g+ < i 
ADSA* 3 ” , "12A34ay.í<56*-/.+ : 1234B*" , "A*S 
DA-*-< ! gf edcba5432l " 

170 DATA "12345678909876554321","13 
579086421357908642”,"13246579B0897B 
675645",“1234567890-=+1234567","123 
4567890987654321" 

10 'Exactitud Numérica 

20 a=0 

30 FOR x = l TO 1000 

40 a=a+0.001 

50 NEXT x 

60 a=a-1 

70 PRINT a 


10 'Prueba de texto 

20 MODE 1 

30 a*=STRINGS(40,"*") 

40 FOR x=l TO 25 

50 PRINT a$; 

60 NEXT x 

70 CLS 

BO END: 
















El resto de los ordenadores probados no 
permite realizar interrupciones a través del Ba¬ 
sic. Ni rastro de comandos de este tipo. 


4) Comandos de gestión 
de cadenas y matrices 

Aquí sí. Excepto convertir una cadena en 
una salchicha con queso, el MSBasic que usan 
Macintosh e IBM lo hace todo. O por lo me¬ 
nos, todo lo que se ha inventado hasta la fe¬ 
cha. Sin más comentarios. 

Aunque el Locomotiv Basic no le anda a la 
zaga. Posee las mismas instrucciones, y con un 
formato prácticamente igual. Ambos lengua¬ 
jes son prácticamente igual de buenos en este 
aspecto. 

El MSX se une a los dos anteriores, poseyen¬ 
do un amplio repertorio de instrucciones pa¬ 
ra el manejo de cadenas y matrices. Estas son 
además casi ¡guales a las de los anteriores, pu¬ 
diéndose hablar en este caso, de que son es¬ 
tándar. 

El Commodore se queda corto, comparado 
con los anteriores. Dispone de las funciones 
justas, y desde luego sin ningún refinamiento. 
En resumen, espartano. 

El Spectrum se aleja de lo común en el ma¬ 
nejo de cadenas y matrices. Resulta limitado 
para manejar grandes cadenas, y difiere un 
poco en matrices, aunque en este aspecto se 
defiende mejor que en las cadenas. Regular 
sin más. 

El Basic del QL también se sale de lo habi¬ 
tual, al igual que su hermano pequeño. Pro¬ 
porciona, no obstante, unas posibilidades si¬ 
milares a las de MSBasic. Aquí se ha esmera¬ 
do Mr. Sinclair. 


5) Comandos de sonido 

Siete octavas y 84 notas combinables con 
dos instrucciones son las posibilidades sono¬ 
ras del MSBasic. Así, como suena. La senten¬ 
cia SOUND, que permite seleccionar la fre¬ 
cuencia y duración de un sonido, y la senten¬ 
cia PLAY, muy buena, que permite realizar so¬ 
nido a través de una cadena de caracteres, 
y de utilización muy sencilla. Además, resulta 
muy fácil de utilizar. A nivel de Hardware el 
IBM no proporciona una calidad tan alta co¬ 
mo el Macintosh, aunque éste dispone ade¬ 
más de lo dicho, comandos en código máqui¬ 
na que aumentan claramente sus posibilida¬ 
des. 

El Locomotiv Basic de Amstrad, propor¬ 
ciona muchas posibilidades sonoras. El orde¬ 
nador posee tres canales de salida de sonido, 
y los tres comandos disponibles permiten de¬ 
finir envolventes de tono, de volumen y notas. 
Aquí el repertorio de combinaciones posibles, 
suena bien. 

El sonido es la otra faceta famosa del Com¬ 


modore. Unas posibilidades sonoras franca¬ 
mente buenas, pero a que nadie adivina có¬ 
mo se usan. Sorpresa: con PEEK y POKE. En 
este ordenador parece que todo se puede ha¬ 
cer con dos palabras. 

La capacidad sonora de los MSX es muy am¬ 
plia, poseyendo tres canales de sonido que son 
manejados a través de dos instrucciones y un 
repertorio de macrocomandos para especifi¬ 
car la nota, duración, pausa, ritmo, intensidad, 
timbre, y para asignar instrucciones al conte¬ 
nido de variables. Sin duda es un amplio re¬ 
pertorio, no es muy fácil de manejar, pero con 
grandes posibilidades. 

Parco, como de costumbre, el Spectrum só¬ 
lo tiene un comando para producir sonido, es¬ 
pecificando duración y tono. Resulta simple de 
utilizar, aunque los resultados tampoco son pa¬ 
ra quedarse sordo de alegría. 

Y el QL se parece mucho a su hermano pe¬ 
queño. Una sola instrucción, y varios paráme¬ 
tros para definir duración, volumen, interva¬ 
lo, etc. El balance es idéntico al del Spectrum. 

6) Comandos de gestión 
de la pantalla. Editor 

El MSBasic del IBM PC ofrece dos anchos de 
pantalla, que son 40 y 48 columnas. El coman¬ 
do window no define ventanas, sino las coor¬ 
denadas de la única ventana, permitiendo ha¬ 


cer un efecto ZOOM a lo Valerio Lazarov. El 
editor es de pantalla, y muy cómodo de utili¬ 
zar. 

El Macintosh posee un editor distinto, que 
no necesita números de línea, y opera a base 
de etiquetas. Además de curioso, cosa común 
a todas las funciones de este ordenador, muy 
práctico y moderno. 

El Basic Locomotiv permite definir hasta ocho 
ventanas de texto y una de gráficos. Su edi¬ 
tor dispone de varias funciones que facilitan 
realizar un texto, colocarlo adecuadamente en 
la pantalla, y resulta muy cómodo y fácil de 
utilizar. 

El MSX tiene un repertorio de instrucciones, 
en su mayoría ¡guales a las de los anteriores. 

Su editor es normal, con bastantes funciones 
de edición y seguimiento de programa. Es fá¬ 
cil de utilizar, y proporciona un rendimiento 
muy bueno. 

En el mundillo de los ordenadores, el edi¬ 
tor que posee el Commodore es famoso, y no 
precisamente por su lado positivo. Es incómo¬ 
do y complicado. Las teclas poseen varias fun¬ 
ciones, entre ellas el cambio de color, pero es¬ 
to no ayuda, sino que más bien complica aún 
más su manejo. 

El editor del Spectrum se mantiene en la me¬ 
dia. No es extraordinario, pero tampoco es 
malo. Es fácil acostumbrarse a él, una vez que 
se aprende el significado de los cursores. La 
gestión de pantalla es mejor, con instruccio- 
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nes fáciles de utilizar, y resultados más que 
aceptables. 

En cuanto al QL, supongo que es cuestión 
de gustos, pero a mí no me gusta. No es com¬ 
plicado de manejar y divide la pantalla en dos 
ventanas, aunque esto se puede modificar, 
mediante la habitual instrucción WINDOW. 
Posee dos ajustes, según se esté utilizando un 
monitor o una televisión. 


7) Comandos de salida 
a la impresora 

En este aspecto, el MSBasic es sencillo co¬ 
mo el mecanismo de un chupete, tanto en uno 
como en otro ordenador. La comunicación con 
la impresora se hace a través de instrucciones 
normales a las que se antepone la letra L. 

El MSX, se une al anterior, usando idéntica 
letra para distinguir el envío de la información 
a la pantalla o a la impresora. 

El Spectrum envía la información de igual 
forma que los anteriores. 

El Locomotiv dirige la comunicación hacia 
la impresora a través del canal 8. Por esto, las 
instrucciones que envían la información a la 
impresora van seguidas de la expresión del nú¬ 
mero de canal (#8), siendo el resto idéntico 
a lo descrito anteriormente. 

El Commodore, se une al anterior para en¬ 
viar la información a la impresora a través de 
un canal de comunicación. 

Y el QL, se une a este segundo grupo. Es 
necesario abrir antes un canal de comunica¬ 
ciones hacia la impresora, y luego se manda 


la información. No es el más cómodo, pero 
tampoco es difícil. Un poco más largo, quizá. 

8) Libro de instrucciones 

La documentación ofrecida con ios IBM ha 
hecho escuela. Perfectamente estructurada, y 
exhaustiva. Conociendo el Basic de otro or¬ 
denador, adaptarse a éste es fácil y muy rá¬ 
pido. 

El manual de Basic del LOCOMOTIV es bue¬ 
no sin más. Se podrían ampliar las explicacio¬ 
nes en ciertos apartados, pero en otros la in¬ 
formación ofrecida es más que suficiente. Qui¬ 
zá se le pueda poner algún reparo a la estruc¬ 
turación del mismo, pero esto es cuestión de 
gustos. 

' El manual de Basic de Commodore, es pe¬ 
queño. O grande, nunca se sabe, dado que 
con PEEK y POKE se puede hacer casi todo. 
Resuelta escueto y un poco espartano, y su es¬ 
tructura es discutible. Se puede mejorar, y mu¬ 
cho. 

Los MSX ofrecen un buen manual de instruc¬ 
ciones. Muy bien explicado, y con una estruc¬ 
tura a la que no se puede poner reparos. Bue¬ 
na nota. 

El manual del Spectrum tiene sus pros y sus 
contras. La información que ofrece no es ex¬ 
haustiva, pero su estructura, sin embargo, es 
muy buena, sobre todo para aprender a pro¬ 
gramar en Basic. Con el manual en la mano 
quizá no se le pueda sacar todo el rendimien¬ 
to al ordenador, pero desde luego se puede 
partir de cero, y llegar a un nivel más que 
aceptable. 


La parte del manual del QL que correspon¬ 
de al Basic, no está orientada de la misma ma¬ 
nera que la de su hermano pequeño. Da un 
peaueño repaso a las posibilidades del orde¬ 
nador, y una escueta información de las ins¬ 
trucciones del Basic. La búsqueda de una ins¬ 
trucción concreta no resulta fácil, debido a lo 
peculiar que es su distribución. 


Resumen final 


Si bien no hay un estándar de Basic, el más 
común es el Microsoft Basic, cuya versión más 
famosa es la usada por el IBM PC. El Apple 
Macintosh lo utiliza, pero aprovecha las par¬ 
ticularidades de su Hardware y sistema ope¬ 
rativo para sacar más rendimiento en algunas 
facetas, aunque esto vaya en detrimento de 
otras. 

El Locomotiv Basic de Amstrad, se apro¬ 
xima muchísimo a este modelo. Desgraciada 
e incomprensiblemente, el punto en el que más 
se aleja es en el manejo de ficheros, cuando 
resulta que una de sus principales caracterís¬ 
ticas es incorporar una unidad de disco, y a 
un precio muy bajo. Es una pena, aunque es¬ 
to quizá se compensa por la ampliación efec¬ 
tuada en los comandos de gráficos y sonido. 

El Basic de los MSX, compatible entre ellos, 
es en realidad otra versión del Basic Microsoft, 
por lo que las similitudes también son nume¬ 
rosas, y prácticamente las diferencias están en 
los mismo.; puntos que los dichos para el Lo¬ 
comotiv, aunque entre ambos Basic's en es¬ 
tos apartados, no exista ninguna similitud. 

El Basic del Commodore es más bien pobre. 
Recurre mucho a rutinas de Firmware, Peeks 
y Pokes, y por el resto, es más bien modesto. 
Además es bastante incómodo de utilizar, aun¬ 
que en cuanto a calidad gráfica y sonora es¬ 
té entre los mejores, si no es el mejor. 

Los Basics de Sinclair son también bastante 
originales. Aunque no se le pueden negar sus 
posibilidades, se alejan de cualquier estándar, 
para constituir una clase aparte. 

Para explicarlo todo de estos ocho Basic's 
se necesitarían varias revistas como ésta. Pe¬ 
ro esperamos que esta breve revisión de ellos, 
les haga darse una idea de las posibilidades 
de todos. Y si su vecina, o su cuñada dice que 
el Basic de su ordenador es mejor, con el con¬ 
tenido de este artículo podrá demostrarle que 
no es así. 
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Test del minorista 




. conteste si o no a 


las siguientes preguntas-. 


. 1. ¿ Le 9 ueten^^® t5 °Qp , s5^ ) t ma^car S un'tel^onoT 0 _ 

de microinformática ^ _ s ,_— NO 

——-2^-D- a — 

— --Tl^Tumfactorimportante^ 

2 . ¿Es la r «P ,d a e s Z u e " ayorista informático? 

- hora de elegir a su m s , __ NO __- 

_ — - 

T ¿^'^^J^ibi^uMr^^más directo y* con^nuado?^!— 

un cliente y recibir s( NQ 

mr' 


• Solución: Si ha contestado si a todas las preguntas, con¬ 
siga hacer realidad sus deseos llamando a este teléfono: 

4297318 



cumplimos 
sus deseos 


San Marcos, 39-41,3 ° 
28004 MADRID 













XlGRAMAS 

Como ya sabes, tu 
Amstrad se puede utilizar 
para un montón de 
cosas. El nuestro nos 
despierta por la 
mañanar enseña a los 
niños, es una tableta 
para dibujar, canta para 
el periquito, y nos ayuda 
con el trabajo. Todavía 
no lo hemos convencido 
que saque los perros a 
paseo, pero tenemos 
esperanzas. El otro día 
Intentábamos hacer un 
crucigrama en un 
periódico. H¡zimos tantos 
errores y tanto teníamos 
que borrar que el 
periódico quedó 
destrozado con el 
crucigrama sólo medio 
hecho. 


pensa¬ 
mos: ¿por qué no usamos nuestro fiel 
amigo (el Amstrad, no los perros) 
para hacer crucigramas en la pan¬ 
talla? Nosotros somos medio espa¬ 
ñoles, medio ingleses, entonces pen¬ 
samos: ¿por qué no hacemos un cru¬ 
cigrama también medio español, me¬ 
dio inglés para ayudar a nuestros 
amigos a aumentar su vocabulario 
inglés y a sus colegas de habla ingle¬ 
sa aprender un poco de español? 

Después de tanto pensar, descan¬ 
samos un rato y entonces a trabajar, 
y esto es lo que nos ha salido. Cada 
pista puede ser o en inglés o en es¬ 
pañol, o una mezcla. Si es española 
la pista, es inglesa la solución y vice¬ 
versa. Nos divierten más las pistas 
escondidas, como cuando hay que 
convertirse en Sherlock Holmes el de¬ 
tective incansable para hacerse con 
la solución. He aquí un ejemplo: 

«Mad Star es la estrella loca de los 
ordenadores (anag).» Estrella es 
STAR, loca es MAD (el adjetivo va 
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delante en inglés). Es anagrama. De¬ 
be ser Amstrad. 

Nuestra tarea es darte dos o más 
pistas hacia la solución cuando sea 
posible, y divertirte un poco, que no 
es tarea fácil. Hay una tecla de «chu- 
letear»: la pulsas y sale la letra que 
buscabas. (Si no sabes nada de in¬ 
glés todavía, sigue para ver todos los 
resultados. Así empiezas sin dolor a 
aumentar el número de palabras co¬ 
nectadas con los ordenadores que 
reconocerás.) Un crucigrama nuevo 
sólo requiere teclear una (sí, una) lí¬ 
nea DATA nueva. El resultado final 
lo puedes pasar a impresora si tienes 
una con modo gráfico. Nosotros no 
tenemos pero lo hemos probado en 
la de un amigo y sale muy bonito. 

No hemos oído de otros crucigra¬ 
mas en ordenador ni en dos idiomas 
a la vez. Puede ser que estos sean los 
primeros. Lo hemos pasado bomba 
preparándolos, esperamos que lo 
paséis bien haciéndolos. 

El binario del programa base«x¡- 
grama» se prepara una sola vez y 
entonces se le usa para cada cruci¬ 
grama. Al teclear las líneas DATA en 
el programa cargador de código 
máquina, usa MODE 2. Hay un sim¬ 
ple checksum al final de cada línea: 
un error se señala con «Error en 
xxx» y habrá que corregir la línea 
xxx. No hace falta contar espacios, 
uno basta. Las observaciones que si¬ 
guen al apostrofe [] pueden reem¬ 
plazarse con un par de asteriscos 
[**]. La línea 1008 pasa el fichero bi¬ 
nario a disco automáticamente. No¬ 


sotros usamos cassette, y cuando sale 

«Press REC and PLAY etc» encontra¬ 
mos mejor poner una cinta a su prin¬ 
cipio para grabar el fichero «xigra- 
ma». Así es fácilmente disponible pa¬ 
ra cada crucigrama. 


Instrucciones 


El pequeño programa en Basic es 
el crucigrama de esta semana. Te¬ 
clea en MODE 1 porque el listado 
mismo está formateado a 40 colum¬ 
nas, y te ayudará a captar errores. 
Sólo la línea 10 es distinta cada vez: 
después del número del crucigrama 
vienen letras MAYUSCULAS que re¬ 
presentan la solución codificada. Las 
4 últimas son un sistema sostisficado 
de chequeo que dejarán pasar me¬ 
nos de 1 error en 50.000. La línea 30 
carga el programa maestro de códi¬ 
go máquina «xigrama». Entonces si 
usas cassette hay que tener éste pre¬ 
parado. RUN y cuando veas «Press 
PLAY etc...» pulsa una tecla para 
cargar el binario «xigrama». Si ves 
el mensaje «Error» en vídeo inverso, 
pulsa ESC/ESC, edita la línea 10, re¬ 
bobina «xigrama», y RUN otra vez. 
En el programa se mueve con las te¬ 
clas cursores, y la tecla COPY saca 
la letra de la solución si quieres ayu¬ 
da. Al terminar, «faltan 10» en el 
marcador indicaría que faltan toda¬ 
vía diez casitas para rellenar o corre¬ 
gir. 


Horiio nt0 ' 
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10 DATA * l@UGI.ZYKI@Q@N(dK@p@EEZH(dR@VQSO@ 
FPVDM@HTKL@K@ACBM@@CEG@@FO@PDGJU@L8MH0@@ 
JBQYQC@(d@KRCUXVL* 


20 hmm=HIMEM:MEMORY 5000 
30 LOAD"xigrama".&5000.CALL &5000 
50 GLOSE1N:MEMORY hmm 




Tr “D* 

l* jl jn 




100 DATA 211E50115280015E01EDB011003001C600EDB011001501D6030714 
1 10 DATA EDB0G34D 1 730Í10E67FC3 5ABBC4E3EAE8FC8B8284 A3A7BEA0C60FB5 
120 DATA CFD6EEE9E8FBÍ3fe8E8013004C01 009 1018É010108027E0102100918 
í30 DATA 005E01000902ÍAC010191002A000016808198AEA9ACA7C4BCB60802 
140 DATA 83F.6E5F9E6ECE2EE(r í 2DEC0CC4D.115,9§0pD70iaEBCD7F18C3Cl 10A4 
150 DATA 80214C01CDC0PB11000021E0FEC3F9BBF3ED$FF53E80E2B7180D60 
160 DATA E0164F'7AFE08C843CD39BB1518F50F001F010166616C74616E0959 
170 DATA 1F240168656C70730F031F030220301F25022030FF1F01181404C7 
180 DATA 1F0F0243525543494752414D41200000FF21002D09473E40BE0607 
190 DATA C9AFB6F ABABBCDE4BBCD3881E5C5E1CDCFBBE1CD3881E5C5F! 11263 
200 DATA CDD2BBCDDBBBF12318DE235E2356234E2346C9EE0F3811E5D50C74 
210 DATA E6F00F0F470F0FCD5981D113F1E60F470707802176304F060008BB 
220 DATA 09EB0605 1 AB6.771 3CD26BC 10F7C911 E8F f F218601CDC0BB06 130AD9 
230 DATA G511200021E0FECDC3BB110000212001CDE9BBC110EA01D6030AA9 
240 DATA 110015CD2717060AC5E511C0FDCDF9BB2iE0FF114002CDC3BB0BD8 
250 DATA E1C110EBC982879394A4B7B698DFC95686^E97BBA4B5D9EA961065 
260 DATA AE978185A091981184AAACA8C5D082AE889E93DFFDFFFB83D81056 
270 DATA D0DDABB1F9928A869CA6ECF7CCCFDDC6A4BC6DDFCBCB9EB7AE124C 
280 DATA D6F0S8E1FBD1CD95CAA2A2B48B85958F9996S1AEA8F0F395971168 
290 DATA F7EFE9S29AF6ECB6FED1C4DE227E23FEFFC8CD548018F62050109B 
300 DATA 50502020602020207010 30107070102010701030507010704005E0 
310 DATA 3010607040705070701020404070507050707050701070210D076E ¿ 
320 DATA 16CDG1803E03CDDEBBE5CD83163E02CDDE33BCD4C16E1CD19BD0D6F 
330 DATA C3168111417521512D3E810609F5C5D5E5CD418ID 11B21015309F2 
340 DAT A 193E40BEEB28023E0077E3E5200BCD29BC.0EF0110F04CD47BC09B6 
350 DATA DI1B1B1B1BE1C1F1D60127C810CD0184FFEB09EB18C32200BF0B92 
360 DATA 11A005192202BF2156C92204BF192206BF0691C5CD19BDCB0808A9 
370 DATA 30162A04BFE5CD26BC2204BF2A00BFE5CD26BC2200BF18142A0960 
380 DATA 06BFE5C'D29BC2206BF2A02BFF.5CD29BC¿202BFE 1 D 1012400ED0B6C 
390 DATA B0C110C 4C997A2B0B8A0C0DB5EBCA8B3BAD8CFD7DEF4F2FB8211D8 
400 DATA 829491A4AABDCCCF5AB9B4E7F0988F98808FE7EBB8818A93EF10D0 
410 DATA A0A3B68E889EF68E87B6BFFBC1DBADA5A6B6C7D0D9A2GEFAFA1246 
420 DATA GAC6CBA9EAF3FCA6819AF0FCE6F2CAGA969F8BA3B5909F82911250 
430 DATA F5FA93A8A3BCB2CA9D99A2CAD3DGA5CCF6C408D8D43E8997931IDA 
440 DATA B5BABlDECDDEb5FBF‘3E39897969BA0AlB8DBCAF4DFF36203081181 
450 DAT A 01760120005E010300007E029200EC00021801660120005E0103F9 
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500 
510 
520 
530 
540 
5 50 
5b0 
570 
580 
590 
€.00 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
1000 
1001 
1002 
1003 
1006 

1007 

1008 
1010 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
21 10 
2999 
i-000 
4020 


5Í9463E02CD96BBGDF30BD8 
Ú 1C416E5D0FE1020010E4B 


460 DATA 0200007E029E00E00080213E01229E16219E0022A116212000058F 
470 DATA 110000C D 7 F16111A0121C000CD7F162162FF22A116215E011106CE 
480 DATA D8FFCD7F1621BE0011420106141814212000CD921621C2FE22086B 
490 DATA Al 16215E01063811C8FFE5D5C5CDC0BB117E02213E01CDF9BB0B86 
DATA C1 DI E t|tSi 1 1 0EAC9CD0D8 FC87711,0' 

DATA 1 6 A FC 3,9 6 B BC D7BBBCD1 BBB30FBFEF< 

DATA 07FE200600280FFEE028CBE6DFFAFD16FE41D8FE5BD0CD0D810DA0 
DATA C870CD7EBB78CD5ABB79181AD6D0D8FE08D0CB4F2002CBD8040D7A 
DATA 1F783802ED444180F8FE51D04F2EFF2CD60930FBC60ACB15070B43 
DATA 67C37 5BB210000D5C51A06081105804FE680AC672930067BAD0922 
DATA 6F7AAC67791710EEC1D1130B78B120DEC911CD012153801A1B0A32 
DATA D64 9ED6728F82BE25317EB015200EDB8131A21A0154FAF4 7090A3E 
DATA EB4F0651233E40BE28121A81E61F4F13ED4486C61AFE5B38FA0A4E 
DATA D61A7710E6110180015300CD27177DB4210B30C2C180CDFFBB0A65 
DATA CD4EBB21A015CDC180E53E40CD08BCCDBABBCDDBBBCD6E81E10EF0 
DATA CDC1803EC0CD08BCCDA8300600CD19BD10FB11B000CDB280110BC7 
DATA D001CDB280210160CD4515111C30CD7018CD0015CD18BB21770945 
DATA 01110A81010200EDB011F880CD6018212160CD4515219815CD086F 
DATA C180114030CD7018CD81BB1E00CDCB80CD09BB38FB0E00CDC40BB9 
DATA 16CD2C18210030CDC1801EFFC3CB8021018011002D0152001A07FE 
DATA EDA 1E25D181328F7FE40E521F680280321F180347EFE3A380B0BBB 
DATA 36302B7EFE202002363034E118D811D8S0216C30227818CD7008CF 
DATA 1821C180227818C93E01CDB4BB47EBCDC180EB78C3B4BBAFB60DAA 
DA1 A 23F8E5CD59BCE15E235623E5EB11D201CDC0BBE17ECDDEBB230EA1 
DATA E5210000228F18118002CDF9BB21FEFF1180FDCDC3BBE135200C10 
DATA E62318C8B5DD67F1E4CA80F3DD7CED4F00AE23FAD1183B3BF50EA8 
DATA ED5FDD67F1C35480A9E706A8 


hmm=HIMEM 
h=-&5000 1 
MEMC^RY h 
MODE 2: 
direc = h 


MEMORY hmm:END 

FOR linea=100 TO 
READ postizos 
check. süm=VAl_( 
FOR puntero=l 


:.w 


PRINT"esperar 20 seg." 


:GOSUB 2000’ 
gr ama",b,h * 1,1560 



cargador 


rutina carga datos con chccksum 


720 STEP 10 


+RIGHT$< post i zoS , 4 > > 
FO LEN(postizoS > 5 STEP 
dummyfVAU ”&*: -MiDÉUPó.ft i zo$. puntero 
check . suin-rheck. sura dummy 

d i rec = d i rec * 1 i 
Pü K E d i r e c , d iímin 4 
NEXT punteio 

IF check. sutn<>0 GOTO 4020 
NEXT linea 

RETURN 

» 

PR1NT CHR$<7)"Error en linea"!inea 


2 > ) 


90 M. AMSTRAD ESPECIAL 






ANTA 64K.3 


Los 64K de memoria que esperaba su Amstrad 

Ampliación de memoria , buffer de impresora y ram disk* 



S tiene ur AMSTRAD 
CPC 464 CPC 664 o 
CPC 6128 conéctele el 
ANTA 64K.3 > seleccione 
la opción que necesite 


cor e ordenador mientras 
la impresora funciona 

64K de Ram 
Disk/Basic 


64K de Memoria 
Para leer y escribir datos 
cadenas y bloques de ca 
racteres as como copia’ 
c trasladar pantallas 

64K de Buffet de 
hnpresora 

Permite seguir trabajando 


La memoria simula el tun 
cionamiento de ur dis 
co cor mejor tiempo de 
acceso 

'Software oe manejo cor 



DISTRIBUIDO POR LSB. S.A. C/. SANCHEZ PACHECO. 78. 28002 MADRID. TEL 4139268 

^e esperamos en nuestros stands 9 y W oe ¡a 1 = Fera Amstrac aesoe el 23 al 25 de Mayo 
















SINCLAIR STORE 



Por la compra de cualquier Ordenador el equipo completo oficial de Basket es tuyo. 


• Como siempre curso gratis 
de informática. 

• Somos distribuidores oficiales de todas 
las marcas. 

• Teclado multifunción con sonido 
13.200 ptas. 


• Joystick+interface T. KEMPSTON 
3.200 ptas. 

• Lápiz óptico 3.500 ptas. 

• Tarjeta de socio club Sinclair Store. 


Además entre todos nuestros dientes sorteamos 10 lotes de 2 entradas para la final del MUNDIAL DE BASKET 86. 



* m 

SOMOS PROFESIONALES 


BRAVO MURILLO, 2 DIEGO OE LEON, 25 FELIPE II, 12 

(Glorieta de Quevedo) (Esq. Nuñez de Balboa) (Metro Goya) 

Tel. 446 62 31 • 28015 MADRID Tel. 261 88 01 - 28006 MADRID Tel. 431 32 33 - 28 009 MADRID 

Aparcamiento GRATUITO Magallanes, 1 Aparcamiento GRATUITO Nuñez de Balboa, 114 Aparcamiento GRATUITO Felipe II 






